home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 June / EnigmA AMIGA RUN 19 (1997)(G.R. Edizioni)(IT)[!][issue 1997-06][EAR-CD III].iso / recent3 / mcc_htmltext.lha / MCC_HTMLtext / MCC-Install < prev    next >
Text File  |  1997-05-12  |  116KB  |  3,081 lines

  1. ;
  2. ; Installer script for MUI custom classes
  3. ;
  4. ; Copyright © 1996-1997 Kai Hofmann
  5. ; All rights reserved!
  6. ; Released as Freeware without any explicit or implicit warranty!
  7. ;
  8. ; EMail: i07m@zfn.uni-bremen.de
  9. ; WWW  : http://www.informatik.uni-bremen.de/~i07m/
  10. ;
  11. ; $VER: MCC-Install 43.8 (08.03.97)
  12. ;
  13. ; -----------------------------------------------------------------------------
  14. ; WrapGuide is copyright © 1994-1995 Udo Schuermann
  15. ; -----------------------------------------------------------------------------
  16. ;
  17. ; Archive structure:
  18. ;
  19. ; MCC_<name>/.Product-Info
  20. ; MCC_<name>/MCC_<name>.readme
  21. ; MCC_<name>/MCC_<name>.readme.info
  22. ; MCC_<name>/MCC-Install
  23. ; MCC_<name>/MCC-Install.info
  24. ; MCC_<name>/Install/English.info                (optional)
  25. ; MCC_<name>/Install/...                    (optional)
  26. ; MCC_<name>/Libs/MUI/<name>.mcc                (optional)
  27. ; MCC_<name>/Libs/MUI/<name>.mcp                (optional)
  28. ; MCC_<name>/Libs/MUI/<name>000.mcc                (optional)
  29. ; MCC_<name>/Libs/MUI/<name>000.mcp                (optional)
  30. ; MCC_<name>/Libs/MUI/<name>010.mcc                (optional)
  31. ; MCC_<name>/Libs/MUI/<name>010.mcp                (optional)
  32. ; MCC_<name>/Libs/MUI/<name>020.mcc                (optional)
  33. ; MCC_<name>/Libs/MUI/<name>020.mcp                (optional)
  34. ; MCC_<name>/Libs/MUI/<name>020f.mcc                (optional)
  35. ; MCC_<name>/Libs/MUI/<name>020f.mcp                (optional)
  36. ; MCC_<name>/Libs/MUI/<name>030.mcc                (optional)
  37. ; MCC_<name>/Libs/MUI/<name>030.mcp                (optional)
  38. ; MCC_<name>/Libs/MUI/<name>030f.mcc                (optional)
  39. ; MCC_<name>/Libs/MUI/<name>030f.mcp                (optional)
  40. ; MCC_<name>/Libs/MUI/<name>040.mcc                (optional)
  41. ; MCC_<name>/Libs/MUI/<name>040.mcp                (optional)
  42. ; MCC_<name>/Libs/MUI/<name>040f.mcc                (optional)
  43. ; MCC_<name>/Libs/MUI/<name>040f.mcp                (optional)
  44. ; MCC_<name>/Libs/MUI/<name>060.mcc                (optional)
  45. ; MCC_<name>/Libs/MUI/<name>060.mcp                (optional)
  46. ; MCC_<name>/Docs/english/<name>_mcc.guide
  47. ; MCC_<name>/Docs/english/<name>_mcc.guide.info
  48. ; MCC_<name>/Docs/english/<name>_mcc.doc            (optional)
  49. ; MCC_<name>/Docs/english/<name>_mcc.doc.info            (optional)
  50. ; MCC_<name>/Docs/......./<name>_mcc.guide            (optional)
  51. ; MCC_<name>/Docs/......./<name>_mcc.guide.info         (optional)
  52. ; MCC_<name>/Docs/......./<name>_mcc.doc            (optional)
  53. ; MCC_<name>/Docs/......./<name>_mcc.doc.info            (optional)
  54. ; MCC_<name>/Demos/<name>-Demo                    (optional)
  55. ; MCC_<name>/Demos/<name>-Demo.info                (optional)
  56. ; MCC_<name>/Locale/Catalogs/.../<name>_mcc.catalog        (optional)
  57. ; MCC_<name>/Locale/Catalogs/.../<name>_mcp.catalog        (optional)
  58. ; MCC_<name>/Developer/Autodocs/MCC_<name>.doc
  59. ; MCC_<name>/Developer/C/Include/MUI/<name>_mcc.h
  60. ; MCC_<name>/Developer/C/Examples/<name>-Demo.c         (optional)
  61. ; MCC_<name>/Developer/Amiga-E/Modules/MUI/<name>_mcc.e     (optional)
  62. ; MCC_<name>/Developer/Amiga-E/Examples/<name>-Demo.e        (optional)
  63. ; MCC_<name>/Developer/Modula/txt/MCC<name>.def         (optional)
  64. ; MCC_<name>/Developer/Modula/txt/MCC<name>.mod         (optional)
  65. ; MCC_<name>/Developer/Modula/Demo/<name>Demo.mod        (optional)
  66. ; MCC_<name>/Developer/Oberon/txt/MCC<name>.mod         (optional)
  67. ; MCC_<name>/Developer/Oberon/examples/<name>Demo.mod        (optional)
  68. ; MCC_<name>/Developer/Assembler/Include/MUI/<name>_mcc.i    (optional)
  69. ; MCC_<name>/Developer/Assembler/Examples/<name>-Demo.s     (optional)
  70. ; MCC_<name>/Developer/Source/MCC_<name>/...            (optional)
  71. ; MCC_<name>/C/WarpGuide                    (optional)
  72. ;
  73. ; -----------------------------------------------------------------------------
  74. ; TODO:
  75. ;
  76. ; MCC_<name>/Images/...                     (optional)
  77. ; MCC_<name>/Developer/Rexx/Include/<name>_mcc.rexx        (optional)
  78. ; MCC_<name>/Developer/Rexx/Examples/<name>-Demo.rexx         (optional)
  79. ; MCC_<name>/Developer/Cluster/txt/MCC<name>.def         (optional)
  80. ; MCC_<name>/Developer/Cluster/txt/MCC<name>.mod         (optional)
  81. ; MCC_<name>/Developer/Cluster/txt/<name>Demo.mod        (optional)
  82. ; MCC_<name>/Developer/BB2/Include/MUI/<name>_mcc.asc        (optional)
  83. ; MCC_<name>/Developer/BB2/Examples/<name>-Demo.asc        (optional)
  84. ; MCC_<name>/Developer/MUIBuilder3/<name>.mb            (optional)
  85. ; MCC_<name>/Developer/MUIBuilder3/behaviour/<name>.mbcc    (optional)
  86. ;
  87. ; C++
  88. ;
  89. ; Uninstall welcome "Wahl des Installationsmodus", "Weiter mit Installation",
  90. ; "Installtion abbrechen"
  91. ; Uninstall options "Installationsoptionen, ...", "Installation abbrechen"
  92. ; Other dialogs: "Installation abbechen"
  93. ;
  94. ; --- Custom initialisation ---------------------------------------------------
  95.  
  96.  ; Copyright
  97.  (set #copyright "Copyright © 1996-1997 Kai Hofmann")
  98.  
  99.  ; Minimum MUI version required for installation
  100.  (set #min_mui_version 16)
  101.  (set #min_mui_revision 0)
  102.  
  103.  ; Bultin language
  104.  ; Bit    0 = English
  105.  ; Bit    1 = German
  106.  ; Bit    2 = French
  107.  ; Bit    3 = Spanish
  108.  ; Bit    4 = Portuguese
  109.  ; Bit    5 = Danish
  110.  ; Bit    6 = Italian
  111.  ; Bit    7 = Dutch
  112.  ; Bit    8 = Norwegian
  113.  ; Bit    9 = Swedish
  114.  ; Bit 10 = Polish
  115.  ; Bit 11 = Finnish
  116.  ; Bit 12 = Hungarian
  117.  ; Bit 13 = Greek
  118.  ; Bit 14 = Esperanto
  119.  ; Bit 15 = Turkish
  120.  ; Bit 16 = Latin
  121.  ; Bit 17 = Russian
  122.  ; BIT 18 = Czech
  123.  ; BIT 19 = Catalonian
  124.  (set #language_mcc %11111111111111111111) ; LANGUAGE
  125.  (set #language_mcp %00000000000000000001) ; LANGUAGE
  126.  
  127. ; --- Custom installation procedures ------------------------------------------
  128.  
  129.  (procedure P_CustomExists
  130.   ; Params:
  131.   ;
  132.   ; Results:
  133.   ;
  134.   ; Used Vars:
  135.   ;
  136.  
  137.  )
  138.  
  139.  (procedure P_CustomInstall
  140.   ; Params:
  141.   ;
  142.   ; Results:
  143.   ;
  144.   ; Used Vars:
  145.   ;
  146.  
  147.  )
  148.  
  149.  (procedure P_CustomUninstall
  150.   ; Params:
  151.   ;
  152.   ; Results:
  153.   ;
  154.   ; Used Vars:
  155.   ;
  156.  
  157.  )
  158.  
  159. ; -----------------------------------------------------------------------------
  160. ; --- Do not change anything below this line ----------------------------------
  161. ; -----------------------------------------------------------------------------
  162.  
  163.  (set @default-dest "MUI:")
  164.  
  165.  (if (= @installer-version 0)
  166.    (
  167.     ; old Installer
  168.     (set #prop "")
  169.    )
  170.    (
  171.     ; new Installer
  172.     (set #prop "\x1b[2p")
  173.    )
  174.  )
  175.  
  176. ; --- Installer script strings ------------------------------------------------
  177.  
  178.  (set #i 0)
  179.  (while (<> @language (select #i "suomi" "ÃeÓtina" "polski" "svenska" "nederlands" "greek" "français" "italiano" "dansk" "deutsch" @language)) ; LANGUAGE
  180.    (set #i (+ #i 1))
  181.  )
  182.  (if (= #i 10) ; LANGUAGE
  183.    (set #language "english")
  184.    (set #language @language)
  185.  )
  186.  
  187.  (set #i 0)
  188.  (set #language_default %10000000000000000000) ; LANGUAGE
  189.  (while (<> #language (select #i "catalonian" "ÃeÓtina" "russian" "latina" "türkçe" "esperanto" "greek" "magyar" "suomi" "polski" "svenska" "norsk" "nederlands" "italiano" "dansk" "português" "español" "français" "deutsch" #language)) ; LANGUAGE
  190.    (
  191.     (set #language_default (shiftright #language_default 1))
  192.     (set #i (+ #i 1))
  193.    )
  194.  )
  195.  (select #i ; LANGUAGE
  196.    ( ; Catalonian
  197.     (complete 0)
  198.    )
  199.    ( ; Czech translation by Vit Sindlar <xsindl00@stud.fee.vutbr.cz>
  200.     (if (= @installer-version 0)
  201.       (
  202.        (set #help_askoptions "Pokud mÁte InstalÁtor do verze 42.6, mÊÚe se stÁt, Úe uvidÉte tlaÃÉtka se zatrÚenÉm bez popisu. Volba pomocÉ tÅchto tlaÃÉtek bude ignorovÁna.\n\n")
  203.        (set #help_askchoice "Pokud mÁte InstalÁtor do verze 42.6, mÊÚe se stÁt, Úe uvidÉte radio-tlaÃÉtka bez popisu. Volba pomocÉ tÅchto tlaÃÉtek zpÊsobÉ pÒeskok na nejbliÚÓÉ niÚÓÉ volbu.\n\n")
  204.       )
  205.     )
  206.     (set #unknown        "neznÁmÙ")
  207.     (set #choice_english    "AngliÃtina")
  208.     (set #choice_german     "NÅmÃina")
  209.     (set #choice_french     "FrancouzÓtina")
  210.     (set #choice_spanish    "ópanÅlÓtina")
  211.     (set #choice_portuguese "PortugalÓtina")
  212.     (set #choice_danish     "DÁnÓtina")
  213.     (set #choice_italian    "ItalÓtina")
  214.     (set #choice_dutch        "HolandÓtina")
  215.     (set #choice_norwegian  "NorÓtina")
  216.     (set #choice_swedish    "óv×dÓtina")
  217.     (set #choice_polish     "PolÓtina")
  218.     (set #choice_finnish    "FinÓtina")
  219.     (set #choice_hungarian  "MaÄarÓtina")
  220.     (set #choice_turkish    "TureÃtina")
  221.     (set #choice_greek        "òeÃtina")
  222.     (set #choice_latin        "Latina")
  223.     (set #choice_esperanto  "Esperanto")
  224.     (set #choice_russian    "RuÓtina")
  225.     (set #choice_czech        "ãeÓtina")
  226.     (set #choice_catalonian "KatalÁnÓtina"); LANGUAGE
  227.  
  228.     (set #choice_catalogs   "LokalizaÃnÉ katalogy")
  229.     (set #choice_docs        "Dokumentace")
  230.     (set #choice_developer  "MateriÁl pro programÁtory")
  231.     (set #choice_source     "ZdrojovÙ kÏd")
  232.     (set #choice_install    "Instalovat")
  233.     (set #choice_update     "Obnovit instalaci")
  234.     (set #choice_uninstall  "Odinstalovat")
  235.     (set #prompt_askcpufpu       (cat "Zvolte konfiguraci VaÓeho poÃÉtaÃe (CPU/FPU), pro kterou chcete nainstalovat " @app-name ".mcc"))
  236.     (set #prompt_info           (cat "\nInstalace " @app-name " MUI custom class\n" #copyright "\n\n"))
  237.     (set #prompt_install_uninstall (cat #prompt_info "PÒejete si instalovat nebo odinstalovat?"))
  238.     (set #abort_nocpu        (cat "Je mi lÉto, ale " @app-name ".mcc nelze nainstalovat, protoÚe typ VaÓeho CPU nenÉ podporovÁn.\n"))
  239.     (set #abort_nomui        (cat @app-name " MUI custom class je moÚno pouÚÉvat pouze s Magic User Interface (MUI), bez nÅj je custom class nepouÚitelnÙ!\n\n"
  240.                  "InstalÁtor nenaÓel " @default-dest ". NejdÒÉve musÉte nainstalovat MUI a pak mÊÚete zkusit instalaci " @app-name ".mcc!\n"
  241.                 )
  242.     )
  243.     (set #abort_oldmui (cat "K instalaci " @app-name ".mcc je nutn× MUI alespoΠverze %s.\n\n"
  244.                 "Bylo nalezeno MUI verze %s.\n"
  245.                )
  246.     )
  247.     (set #welcome_install (cat "VÉtejte pÒi instalaci.\n"
  248.                    "ProsÉm zvolte si typ instalace (podle VaÓich znalostÉ Amigy)."
  249.               )
  250.     )
  251.     (set #welcome_uninstall (cat "VÉtejte pÒi odinstalovÁnÉ.\n"
  252.                  "ProsÉm zvolte si typ odinstalovÁnÉ (podle VaÓich znalostÉ Amigy)."
  253.                 )
  254.     )
  255.     (set #prompt_uninstall_parts (cat "Kter× ÃÁsti si pÒejete odinstalovat?\n"
  256.                       @app-name ".mcp odinstaluje tak× pÒÉsluÓn× lokalizaÃnÉ katalogy.\n"
  257.                  )
  258.     )
  259.     (set #prompt_uninstall_all (cat "PÒejete si odinstalovat vÓechny soubory patÒÉcÉ k " @app-name ".mcc?"))
  260.     (set #help_uninstall_all "JestliÚe nechcete odinstalovat vÓe, budete dotÁzÁni, kter× ÃÁsti si pÒejete odinstalovat.")
  261.     (set #prompt_uninstall_plangs "Podporu pro kter× programovacÉ jazyky si pÒejete odinstalovat?")
  262.     (set #prompt_uninstall_mcp_catalogs (cat "Kter× lokalizaÃnÉ katalogy pro " @app-name ".mcp si pÒejete odinstalovat?"))
  263.     (set #prompt_uninstall_mcc_catalogs (cat "Kter× lokalizaÃnÉ katalogy pro " @app-name ".mcc si pÒejete odinstalovat?"))
  264.     (set #prompt_uninstall_agdocs "Pro kter× jazyky si pÒejete odinstalovat dokumentaci v AmigaGuide® ?")
  265.     (set #prompt_uninstall_docs "Kter× z dokumentÊ si pÒejete odinstalovat?")
  266.     (set #abort_oldversion (cat "" @app-name ".mcc verze %ld.%ld je jiÚ nainstalovÁn.\n\n"
  267.                 "JestliÚe si pÒejete znovu nainstalovat starÓÉ verzi %ld.%ld, pak je nutno nejdÒÉve odinstalovat novÅjÓÉ verzi."
  268.                )
  269.     )
  270.     (set #prompt_update (cat "Kter× ÃÁsti " @app-name ".mcc si pÒejete pÒidat?"))
  271.     (set #prompt_install_mcc_catalogs (cat "Kter× katalogy pro " @app-name ".mcc si pÒejete instalovat?"))
  272.     (set #prompt_install_mcp_catalogs (cat "Kter× katalogy pro " @app-name ".mcp si pÒejete instalovat?"))
  273.     (set #prompt_install_docs "Kter× z dokumentÊ si pÒejete instalovat?")
  274.     (set #prompt_install_agdocs "Pro kter× jazyky si pÒejete nainstalovat dokumentaci v AmigaGuide® ?")
  275.     (set #prompt_install_demo "PÒejete si nainstalovat dodÁvan× demo?")
  276.     (set #help_install_demo (cat "Demo je malÙ program, kterÙ demonstruje pouÚitÉ " @app-name "custom class."))
  277.     (set #prompt_install_plangs "Podporu pro kter× programovacÉ jazyky si pÒejete nainstalovat?")
  278.     (set #prompt_install_source "PÒejete si nainstalovat zdrojovÙ kÏd?")
  279.     (set #help_install_source (cat "ZdrojovÙ kÏd " @app-name " custom class je moÚno pouÚÉt jako pÒÉklad pÒi vytvÁÒenÉ svÙch vlastnÉch programÊ.\nUpozornÅnÉ - zdrojovÙ kÏd mÊÚe bÙt v jak×mkoliv jazyce!"))
  280.     (set #prompt_copy "PÒejete si nakopÉrovat nÁsledujÉcÉ soubor(y)?")
  281.     (set #prompt_makedir "NÁsledujÉcÉ adresÁÒ nebyl nalezen, je nutno jej vytvoÒit:")
  282.  
  283.     (set #prompt_uninstall_asciidocs "Pro kter× jazyky si pÒejete odinstalovat dokumentaci v ASCII?")
  284.     (set #prompt_install_asciidocs "Pro kter× jazyky si pÒejete nainstalovat dokumentaci v ASCII?")
  285.     (set #exit_uninstall_finished (cat "OdinstalovÁnÉ probÅhlo ÕspÅÓnÅ!\n"
  286.                        '"'
  287.                        @app-name
  288.                        '"'
  289.                        " je odstranÅn z "
  290.                        '"'
  291.                        @default-dest
  292.                        '".'
  293.                   )
  294.     )
  295.    )
  296.    ( ; Russian
  297.     (complete 0)
  298.    )
  299.    ( ; Latina
  300.     (complete 0)
  301.    )
  302.    ( ; Türkçe
  303.     (complete 0)
  304.    )
  305.    ( ; Esperanto
  306.     (complete 0)
  307.    )
  308.    ( ; Greek translation by Pantelis Kopelias <leestar@acropolis.net>
  309.     (if (= @installer-version 0)
  310.       (
  311.        (set #help_askoptions "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå checkbox-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá áãíïçèåß.\n\n")
  312.        (set #help_askchoice "Må Ýíá Installer ðñßí ôçí Ýêäïóç 42.6 ìðïñåß íá óõìâåß íá äåßôå radio-êïõìðéÜ ÷ùñßò åôéêÝôåò. Ç åðéëïãÞ ôþí êïõìðéþí áõôþí èá Ý÷åé áðïôÝëåóìá ôçí åðüìåíç ÷áìçëþôåñç äéáèÝóéìç åðéëïãÞ.\n\n")
  313.       )
  314.     )
  315.     (set #unknown        "Üãíùóôá")
  316.     (set #choice_english    "ÁããëéêÜ")
  317.     (set #choice_german     "ÃåñìáíéêÜ")
  318.     (set #choice_french     "ÃáëëéêÜ")
  319.     (set #choice_spanish    "ÉóðáíéêÜ")
  320.     (set #choice_portuguese "ÐïñôïãáëéêÜ")
  321.     (set #choice_danish     "ÄáíÝæéêá")
  322.     (set #choice_italian    "IôáëéêÜ")
  323.     (set #choice_dutch        "ÏëëáíäéêÜ")
  324.     (set #choice_norwegian  "ÍïñâçãéêÜ")
  325.     (set #choice_swedish    "ÓïõçäéêÜ")
  326.     (set #choice_polish     "ÐïëùíéêÜ")
  327.     (set #choice_finnish    "ÖéëëáíäÝæéêá")
  328.     (set #choice_hungarian  "ÏõããñéêÜ")
  329.     (set #choice_turkish    "ÔïõñêéêÜ")
  330.     (set #choice_greek        "ÅëëçíéêÜ")
  331.     (set #choice_latin        "ËáôéíéêÜ")
  332.     (set #choice_esperanto  "ÅóðåñÜíôï")
  333.     (set #choice_russian    "ÑùóóéêÜ")
  334.     (set #choice_czech        "ÔóÝ÷éêá")
  335.     (set #choice_catalonian "ÊáôáëïíÝæéêá"); LANGUAGE
  336.  
  337.     (set #choice_catalogs   "ÊáôÜëïãïé")
  338.     (set #choice_docs        "Ïäçãßåò/Åã÷åéñßäéá")
  339.     (set #choice_developer  "Õëéêü ãéá Developers")
  340.     (set #choice_source     "Ðçãáßïò Êþäéêáò")
  341.     (set #choice_install    "ÅãêáôÝóôçóå")
  342.     (set #choice_update     "ÅíçìÝñùóç")
  343.     (set #choice_uninstall  "ÁðåãêáôÝóôçóå")
  344.     (set #prompt_askcpufpu       (cat "Ðáñáêáëþ åðéëÝîôå ôçí CPU/FPU configuration ãéá ôçí ïðïßá èÝëåôå íá åãêáôáóôÞóåôå ôçí " @app-name ".mcc"))
  345.     (set #prompt_info           (cat "\nÊáëùóÞëèáôå óôï " @app-name " MUI custom class\n" #copyright "\n\n"))
  346.     (set #prompt_install_uninstall (cat #prompt_info "ÈÝëåôå íá åãêáôáóôÞóåôå Þ íá áðåãêáôáóôÞóåôå ôÞí custom class?"))
  347.     (set #abort_nocpu (cat "Óõãíþìç, ôï script áäõíáôåß íá åãêáôáóôÞóåé ôï " @app-name ".mcc, ãéáôß ç CPU configuration óáò äÝí õðïóôçñßæåôáé.\n"))
  348.     (set #abort_nomui (cat "Tï " @app-name " MUI custom class ìðïñåß íá ÷ñçóéìïðïéçèåß ìüíï ìå ôï Magic User Interface (MUI), ÷ùñßò áõôü ç custom class åßíáé Ü÷ñçóôç!\n\n"
  349.                "Ï åãêáôáóôÜôçò äÝí âñÞêå ôï " @default-dest " ãéá íá ãßíåé assigned, ãéáõôü ðáñáêáëþ åãêáôáóôÞóôå ôï MUI ðñßí ðñïóðáèÞóåôå íá åãêáôáóôÞóåôå ôï " @app-name ".mcc!\n"
  350.               )
  351.     )
  352.     (set #abort_oldmui (cat "Ãéá íá åãêáôáóôÞóåôå ôï " @app-name ".mcc ÷ñåéÜæåóôå ôï MUI %s ôïõëÜ÷éóôïí.\n\n"
  353.                 "Ï åãêáôáóôÜôçò âñÞêå üôé ôï MUI %s åßíáé åãêáôåóôçìÝíï.\n"
  354.                )
  355.     )
  356.     (set #welcome_install (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá åãêáôÜóôáóçò.\n"
  357.                    "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
  358.               )
  359.     )
  360.     (set #welcome_uninstall (cat "ÊáëùóÞëèáôå óôï MUI custom class ðñüãñáììá áðåãêáôÜóôáóçò.\n"
  361.                  "Ðáñáêáëþ åðéëÝîôå ðþò íá ðñï÷ùñÞóåé ç åãêáôÜóôáóç (âáóéæüìåíïé óôéò ãíþóåéò óáò åðÜíù óôçí Amiga)."
  362.                 )
  363.     )
  364.     (set #prompt_uninstall_parts (cat "ÐïéÜ ìÝñç èÝëåôå íá áöáéñÝóåôå ;\n"
  365.                       @app-name ".mcp èá áöéñÝóåé êáé ôïõò ó÷åôéêïýò catalogs åðßóçò.\n"
  366.                  )
  367.     )
  368.     (set #prompt_uninstall_all (cat "ÈÝëåôå íá áöáéñÝóåôå üëá üóá ó÷åôßæïíôáé ìå ôï " @app-name ".mcc;"))
  369.     (set #help_uninstall_all "¶í äÝí èÝëåôå íá ôá áöáéñÝóåôå üëá, èÜ åñùôçèåßôå ðïéÜ ìÝñç èÝëåôå íá áöáéñåèïýí.")
  370.     (set #prompt_uninstall_plangs "ÐïéÜ õðïóôÞñéîç ãéÜ ãëþóóá ðñïãñáììáôéóìïý èÝëåôå íá áöáéñåèåß ;")
  371.     (set #prompt_uninstall_mcp_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéÜ ôï " @app-name ".mcp èá èÝëáôå íá áöáéñåèïýí ;"))
  372.     (set #prompt_uninstall_mcc_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc èá èÝëáôå íá áöáéñåèïýí ;"))
  373.     (set #prompt_uninstall_agdocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñåèïýí ïß AmigaGuide® ïäçãßåò ;")
  374.     (set #prompt_uninstall_docs "Ðïéïý ôýðïõ ïäçãßåò èá èÝëáôå íá áöáéñåèïýí ;")
  375.     (set #abort_oldversion (cat "Ï åãêáôáóôÜôçò âñÞêå üôé ç Ýêäïóç %ld.%ld ôïý " @app-name ".mcc åßíáé Þäç åãêáôåóôçìÝíç.\n\n"
  376.                 "Aí èÝëåôå íá åðáíåãêáôáóôÞóåôå ôçí ðáëéþôåñç Ýêäïóç %ld.%ld ôüôå ðáñáêáëþ áöáéñÝóôå ôçí íåþôåñç Ýêäïóç ðñþôá."
  377.                )
  378.     )
  379.     (set #prompt_update (cat "ÐïéÜ ìÝñç ôïõ " @app-name ".mcc èÝëåôå íá ðñïóôåèïýí óôçí åãêáôÜóôáóç ;"))
  380.     (set #prompt_install_mcc_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcc ÈÝëåôå íá åãêáôáóôáèïýí ;"))
  381.     (set #prompt_install_mcp_catalogs (cat "Ðïéïýò êáôáëüãïõò ãéá ôï " @app-name ".mcp ÈÝëåôå íá åãêáôáóôáèïýí ;"))
  382.     (set #prompt_install_docs "Ðïéïý ôýðïõ ïäçãßåò èÝëåôå íá åãêáôáóôÞóåôå ;")
  383.     (set #prompt_install_agdocs "Ãéá ðïéÝò ãëþóóåò èÝëåôå íá åãêáôáóôÞóåôå ôéò AmigaGuide® ïäçãßåò ;")
  384.     (set #prompt_install_demo "ÈÝëåôå íá åãêáôáóôÞóåôå ôï õðÜñ÷ïí demo ;")
  385.     (set #help_install_demo (cat "Ôï demo åßíáé Ýíá ìéêñü ðñüãñáììá ðïõ åðéäåéêíåßåé ôçí ÷ñÞóç ôÞò " @app-name "custom class."))
  386.     (set #prompt_install_plangs "ÐïéÜ õðïóôÞñéîç ãéá ãëþóóåò ðñïãñáììáôéóìïý èÝëåôå íá åãêáôáóôÞóåôå ;")
  387.     (set #prompt_install_source "Èá èÝëáôå íá åãêáôáóôÞóåôå ôïí Ðçãáßï Êþäéêá;")
  388.     (set #help_install_source (cat "Ï Ðçãáéüò Êþäéêáò ôïõ " @app-name " custom class ìðïñåß áí ÷ñçóéìïðïéçèåß óáí ðáñÜäåéãìá Þ ãéá ôçí äçìéïõñãßá ôçí äéêÞ óáò (bug fixed) åöáñìïãÞò.\nÐñïóÝîôå - ï ðçãáßïò êþäéêáò ìðïñåß íá åßíáé óå ïðïéáäÞðïôå ãëþóóá!"))
  389.     (set #prompt_copy "ÈÝëåôå íá áíôéãñáöåß(ïýí) ôï(á) áêüëïõèï(á) áñ÷åßï(á);")
  390.     (set #prompt_makedir "Ç áêüëïõèç directory äÝí âñÝèçêå, Ýôóé èá ðñÝðåé íá äçìéïõñãçèåß:")
  391.  
  392.     (set #prompt_uninstall_asciidocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá áöáéñÝóåôå ôéò ASCII ïäçãßåò ;")
  393.     (set #prompt_install_asciidocs "Ãéá ðïéÝò ãëþóóåò èá èÝëáôå íá åãêáôáóôÞóåôå ôéò ASCII ïäçãßåò ;")
  394.     (set #exit_uninstall_finished (cat "Ç ÁðåãêáôÜóôáóç ôåëåßùóå ! Ôï\n"
  395.                        '"'
  396.                        @app-name
  397.                        '"'
  398.                        " áöáéñÝèçêå áðü ôï "
  399.                        '"'
  400.                        @default-dest
  401.                        '"'
  402.                        " óõñôÜñé (Þ ôìÞìá äßóêïõ)."
  403.                   )
  404.     )
  405.    )
  406.    ( ; Magyar
  407.     (complete 0)
  408.    )
  409.    ( ; Finnish translation by Petteri Kallio <k140734@cs.tut.fi>
  410.     (if (= @installer-version 0)
  411.       (
  412.        (set #help_askoptions "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintaruudut saattavat näkyä ilman nimiöitä. Nämä valinnat jätetään huomioimatta.\n\n")
  413.        (set #help_askchoice "Installer-ohjelman versiota 42.6 aikaisemmilla versioilla valintanapit saattavat olla nimiöttömiä. Jos tällainen nappi valitaan, valituksi tuleekin seuraava alempi nappi.\n\n")
  414.       )
  415.     )
  416.     (set #unknown        "tuntematon")
  417.     (set #choice_english    "Englanti")
  418.     (set #choice_german     "Saksa")
  419.     (set #choice_french     "Ranska")
  420.     (set #choice_spanish    "Espanja")
  421.     (set #choice_portuguese "Portugali")
  422.     (set #choice_danish     "Tanska")
  423.     (set #choice_italian    "Italia")
  424.     (set #choice_dutch        "Hollanti")
  425.     (set #choice_norwegian  "Norja")
  426.     (set #choice_swedish    "Ruotsi")
  427.     (set #choice_polish     "Puola")
  428.     (set #choice_finnish    "Suomi")
  429.     (set #choice_hungarian  "Unkari")
  430.     (set #choice_turkish    "Turkki")
  431.     (set #choice_greek        "Kreikka")
  432.     (set #choice_latin        "Latina")
  433.     (set #choice_esperanto  "Esperanto")
  434.     (set #choice_russian    "Venäjä")
  435.     (set #choice_czech        "Tsekki")
  436.     (set #choice_catalonian "Katalonia"); LANGUAGE
  437.  
  438.     (set #choice_catalogs   "Sanasto")
  439.     (set #choice_docs        "Dokumentointi")
  440.     (set #choice_developer  "Kehitystyökalut")
  441.     (set #choice_source     "Lähdekoodi")
  442.     (set #choice_install    "Asennus")
  443.     (set #choice_update     "Päivitys")
  444.     (set #choice_uninstall  "Poisto")
  445.     (set #prompt_askcpufpu       (cat "Valitse prosessorikokoonpano, jolle haluat asentaa luokan " @app-name ".mcc"))
  446.     (set #prompt_info           (cat "\nTervetuloa: " @app-name " MUI custom class\n" #copyright "\n\n"))
  447.     (set #prompt_install_uninstall (cat #prompt_info "Haluatko asentaa vai poistaa MUI-luokan?"))
  448.     (set #abort_nocpu ( cat "Tiedostoa " @app-name ".mcc ei voi asentaa, koska prosessorikokoonpanoasi vastaavaa versiota ei ole.\n"))
  449.     (set #abort_nomui (cat @app-name " MUI-luokka toimii vain MUI:n kanssa!\n\n"
  450.                "Hakemistoa " @default-dest " ei löytynyt. Asenna MUI ennen " @app-name ".mcc:n asennusta!\n"
  451.               )
  452.     )
  453.     (set #abort_oldmui (cat @app-name ".mcc tarvitsee toimiakseen vähintään MUI:n version %s.\n\n"
  454.                 "MUI:si versio on %s.\n"
  455.                )
  456.     )
  457.     (set #welcome_install (cat "Tervetuloa MUI custom class asennusohjelmaan.\n"
  458.                    "Valitse asennustapa (perustuen tietämykseesi koneestasi)."
  459.               )
  460.     )
  461.     (set #welcome_uninstall (cat "Tervetuloa MUI custom class poisto-ohjelmaan.\n"
  462.                  "Valitse poistotapa (perustuen tietämykseesi koneestasi)."
  463.                 )
  464.     )
  465.     (set #prompt_uninstall_parts (cat "Mitkä osat haluat poistaa?\n"
  466.                       @app-name ".mcp:n mukana poistetaan myös sanastot.\n"
  467.                  )
  468.     )
  469.     (set #prompt_uninstall_all (cat "Poistetaanko kaikki " @app-name ".mcc:hen liittyvät tiedostot?"))
  470.     (set #help_uninstall_all "Jos et halua poistaa kaikkia osia, sinulta kysytään mitkä osat poistetaan.")
  471.     (set #prompt_uninstall_plangs "Minkä ohjelmointikielten tuet poistetaan?")
  472.     (set #prompt_uninstall_mcp_catalogs (cat "Mitkä " @app-name ".mcp:n sanastot haluat poistaa?"))
  473.     (set #prompt_uninstall_mcc_catalogs (cat "Mitkä " @app-name ".mcc:n sanastot haluat poistaa?"))
  474.     (set #prompt_uninstall_agdocs "Minkä kieliset AmigaGuide® -dokumentit haluat poistaa?")
  475.     (set #prompt_uninstall_docs "Minkälaiset ohjeet haluat poistaa?")
  476.     (set #abort_oldversion (cat @app-name ".mcc:n versio %ld.%ld on jo asennettu aiemmin.\n\n"
  477.                 "Jos haluat asentaa vanhemman version %ld.%ld uudelleen, ole hyvä ja poista ensin uudempi asennus."
  478.                )
  479.     )
  480.     (set #prompt_update (cat "Mitkä osat " @app-name ".mcc:stä haluat lisätä perusasennukseen?"))
  481.     (set #prompt_install_mcc_catalogs (cat "Mitkä " @app-name ".mcc:n sanastot haluat asentaa?"))
  482.     (set #prompt_install_mcp_catalogs (cat "Mitkä " @app-name ".mcp:n sanastot haluat asentaa?"))
  483.     (set #prompt_install_docs "Minkätyyppiset ohjeet haluat asentaa?")
  484.     (set #prompt_install_agdocs "Minkäkieliset AmigaGuide® -dokumentit haluat asentaa?")
  485.     (set #prompt_install_demo "Haluatko asentaa esittelyohjelman?")
  486.     (set #help_install_demo (cat "Esittelyohjelma on pieni ohjelma, joka esittelee " @app-name "-luokan käyttöä."))
  487.     (set #prompt_install_plangs "Mille ohjelmointikielille haluat asentaa tuen?")
  488.     (set #prompt_install_source "Haluatko asentaa lähdekoodin?")
  489.     (set #help_install_source (cat @app-name "-luokan lähdekoodia voidaan käyttää esimerkkinä tai omien (korjattujen) binaaritiedostojen luomiseen.\nHuomaa, että lähdekoodi voi olla mitä tahansa kieltä!"))
  490.     (set #prompt_copy "Haluatko asentaa nämä tiedostot?")
  491.     (set #prompt_makedir "Tätä hakemistoa ei ollut, joten se täytyy luoda:")
  492.  
  493.     (set #prompt_uninstall_asciidocs "Minkä kieliset ASCII-dokumentit haluat poistaa?")
  494.     (set #prompt_install_asciidocs "Minkä kieliset ASCII-dokumentit haluat asentaa?")
  495.     (set #exit_uninstall_finished (cat "Poistettu!\n"
  496.                        '"'
  497.                        @app-name
  498.                        '"'
  499.                        " on poistettu "
  500.                        '"'
  501.                        @default-dest
  502.                        '"'
  503.                        " hakemistosta (tai levyltä)."
  504.                   )
  505.     )
  506.    )
  507.    ( ; Polish translation by Marcin Orîowski <carlos@inet.com.pl>
  508.     (if (= @installer-version 0)
  509.       (
  510.        (set #help_askoptions "W Instalerze w wersji do 42.6 moûe sië zdarzyê, ûe zobaczysz gadûety zaznaczania pozbawione etykiet. Zaznaczanie tych gadûetów bëdzie ignorowane.\n\n")
  511.        (set #help_askchoice "W Instalerze w wersji do 42.6 moûe sië zdarzyê, ûe zobaczysz gadûety radiowe pozbawione etykiet. Zaznaczenie takiego przycisku spowoduje wybranie nastëpnego, niûej dostëpnego elementu.\n\n")
  512.       )
  513.     )
  514.     (set #unknown        "nieznany")
  515.     (set #choice_english    "Angielski")
  516.     (set #choice_german     "Niemiecki")
  517.     (set #choice_french     "Francuski")
  518.     (set #choice_spanish    "Hiszpaïski")
  519.     (set #choice_portuguese "Portugalski")
  520.     (set #choice_danish     "Duïski")
  521.     (set #choice_italian    "Wîoski")
  522.     (set #choice_dutch        "Holenderski")
  523.     (set #choice_norwegian  "Norweski")
  524.     (set #choice_swedish    "Szwedzki")
  525.     (set #choice_polish     "Polski")
  526.     (set #choice_finnish    "Fiïski")
  527.     (set #choice_hungarian  "Wëgierski")
  528.     (set #choice_turkish    "Turecki")
  529.     (set #choice_greek        "Grecki")
  530.     (set #choice_latin        "Îacina")
  531.     (set #choice_esperanto  "Esperanto")
  532.     (set #choice_russian    "Rosyjski")
  533.     (set #choice_czech        "Czeski")
  534.     (set #choice_catalonian "Cataloïski"); LANGUAGE
  535.  
  536.     (set #choice_catalogs   "Katalogi")
  537.     (set #choice_docs        "Dokumentacja uûytkownika")
  538.     (set #choice_developer  "Dokumentacja dla programistów")
  539.     (set #choice_source     "Tekst úródîowy")
  540.     (set #choice_install    "Zainstaluj")
  541.     (set #choice_update     "Zaktualizuj")
  542.     (set #choice_uninstall  "Usuï")
  543.     (set #prompt_askcpufpu       (cat "Wybierz konfiguracjë CPU/FPU dla której chcesz zainstalowaê " @app-name ".mcc"))
  544.     (set #prompt_info           (cat "\nWitaj w programie instalacyjnym klasy " @app-name "\n" #copyright "\n\n"))
  545.  
  546.     (set #prompt_install_uninstall (cat #prompt_info "Chcesz zainstalowaê czy usunâê zainstalowanâ juû klasë?"))
  547.     (set #abort_nocpu (cat "Przykro mi, ale nie moûna zainstalowaê " @app-name ".mcc, poniewaû wybrana przez Ciebie konfiguracja CPU nie jest aktualnie uwzglëdniona.\n"))
  548.     (set #abort_nomui (cat "Klasa " @app-name " jest uûyteczna tylko wraz z systemem Magic User Interface (MUI)!\n\n"
  549.                "Instaler nie znalazî przypisania " @default-dest ", zatem proszë zainstaluj MUI nim przystâpisz od instalacji " @app-name ".mcc!\n"
  550.               )
  551.     )
  552.     (set #abort_oldmui (cat "Aby zainstalowaê " @app-name ".mcc musisz uûywaê MUI w wersji co najmniej %s.\n\n"
  553.                 "Instaler wykryî zainstalowanâ wersjë %s systemu MUI.\n"
  554.                )
  555.     )
  556.     (set #welcome_install (cat "Witaj w programie instalujâcym zewnëtrznâ klasë MUI.\n"
  557.                                "Wybierz sposób w jaki instalacja ma przebiegaê (bazujâc na poziomie swojej wiedzy o Amidze)."
  558.               )
  559.     )
  560.     (set #welcome_uninstall (cat "Witaj w programie deinstalacyjnym dla zewnëtrznej klasy MUI.\n"
  561.                                  "Wybierz sposób w jaki usuwanie ma przebiegaê (bazujâc na poziomie swojej wiedzy o Amidze)."
  562.                 )
  563.     )
  564.     (set #prompt_uninstall_parts (cat "Które elmenty klasy " @app-name " chcesz usunâê?\n"
  565.                       "Usuniëcie " @app-name ".mcp skasuje takûe odpowiednie katalogi.\n"
  566.                  )
  567.     )
  568.     (set #prompt_uninstall_all (cat "Na pewno chesz usunâê wszystkie elementy zwiâzane z " @app-name ".mcc?"))
  569.     (set #help_uninstall_all "Jeôli nie chcesz usunâê wszystkiego, bëdziesz musiaî rëcznie wybraê elementy do skasowania.")
  570.     (set #prompt_uninstall_plangs "Wybierz wersje jëzykowe, które chcesz usunâê")
  571.     (set #prompt_uninstall_mcp_catalogs (cat "Które tîumaczenia preferencji " @app-name ".mcp chcesz usunâê?"))
  572.     (set #prompt_uninstall_mcc_catalogs (cat "Które tîumaczenia klasy " @app-name ".mcc chcesz usunâê?"))
  573.     (set #prompt_uninstall_agdocs "Które tîumaczenia dokumentacji w formacie AmigaGuide® chcesz usunâê?")
  574.     (set #prompt_uninstall_docs "Jaki typ dokumentacji chcesz usunâê?")
  575.     (set #abort_oldversion (cat "Instaler znalazî wersjë %ld.%ld " @app-name ".mcc juû zainstalowanâ.\n\n"
  576.                 "Jeôli chcesz zainstalowaê starszâ (%ld.%ld) wersjë, usuï najpierw nowszâ."
  577.                )
  578.     )
  579.     (set #prompt_update (cat "Które elementy klasy " @app-name ".mcc chcesz zainstalowaê dodatkowo?"))
  580.     (set #prompt_install_mcc_catalogs (cat "Które tîumaczenia klasy " @app-name ".mcc chcesz zainstalowaê?"))
  581.     (set #prompt_install_mcp_catalogs (cat "Które tîumaczenia preferencji " @app-name ".mcp chcesz zainstalowaê?"))
  582.     (set #prompt_install_docs "Jaki typ dokumentacji chcesz  zainstalowaê?")
  583.     (set #prompt_install_agdocs "Które tîumaczenia dokumentacji w formacie AmigaGuide® chcesz zainstalowaê?")
  584.     (set #prompt_install_demo "Czy chcesz zainstalowaê zaîâczony program demonstracyjny?")
  585.     (set #help_install_demo (cat "Program ten demonstruje moûliwe uûycie klasy " @app-name "."))
  586.     (set #prompt_install_plangs "Wybierz jëzyk programowania, dla którego chcesz zainstalowaê materiaîy programisty")
  587.     (set #prompt_install_source "Czy chcesz zainstalowaê tekst ûródîowy?")
  588.     (set #help_install_source (cat "Przykîadowy tekst úródîowy wykorzystujâcy klasë " @app-name " moûe byê uûyty jako podstawa do stworzenia Twojego wîasnego programu.\nBâdú ostroûny - tekst úródîowy moûe byê napisany w dowolnym jëzyku programowania!"))
  589.     (set #prompt_copy "Czy chcesz skopiowaê wymienione pliki?")
  590.     (set #prompt_makedir "Poniûszy katalog nie zostaî znaleziony i musi zostaê utworzony:")
  591.  
  592.     (set #prompt_uninstall_asciidocs "Które tîumaczenie dokumentacji w formacie ASCII chcesz usunâê?")
  593.     (set #prompt_install_asciidocs "Które tîumaczenie dokumentacji w formacie ASCII chcesz zainstalowaê?")
  594.     (set #exit_uninstall_finished (cat "Usuwanie zakoïczone!\n"
  595.                        '"'
  596.                        @app-name
  597.                        '"'
  598.                        " zostaî usuniëty z katalogu (lub partycji) "
  599.                        '"'
  600.                        @default-dest
  601.                        '"'
  602.                        "."
  603.                   )
  604.     )
  605.    )
  606.    ( ; Swedish translation by Jesper Jonsson <jojo@minsk.docs.uu.se>
  607.     (if (= @installer-version 0)
  608.       (
  609.        (set #help_askoptions "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser checkbox-knappar utan tillhörande text. Att välja dessa har ingen verkan.\n\n")
  610.        (set #help_askchoice "Om du har en tidigare version av Installeraren än 42.6 kan det hända att du ser radioknappar utan tillhörande text. Väljer du någon av dessa så kommer det närmast undre alternativet att bli valt.\n\n")
  611.       )
  612.     )
  613.     (set #unknown        "okänt")
  614.     (set #choice_english    "Engelska")
  615.     (set #choice_german     "Tyska")
  616.     (set #choice_french     "Franska")
  617.     (set #choice_spanish    "Spanska")
  618.     (set #choice_portuguese "Portugisiska")
  619.     (set #choice_danish     "Danska")
  620.     (set #choice_italian    "Italienska")
  621.     (set #choice_dutch        "Holländska")
  622.     (set #choice_norwegian  "Norska")
  623.     (set #choice_swedish    "Svenska")
  624.     (set #choice_polish     "Polska")
  625.     (set #choice_finnish    "Finska")
  626.     (set #choice_hungarian  "Ungerska")
  627.     (set #choice_turkish    "Turkiska")
  628.     (set #choice_greek        "Grekiska")
  629.     (set #choice_latin        "Latin")
  630.     (set #choice_esperanto  "Esperanto")
  631.     (set #choice_russian    "Ryska")
  632.     (set #choice_czech        "Tjeckiska")
  633.     (set #choice_catalonian "Katalanska"); LANGUAGE
  634.  
  635.     (set #choice_catalogs   "Kataloger")
  636.     (set #choice_docs        "Dokumentation")
  637.     (set #choice_developer  "Material för utvecklare")
  638.     (set #choice_source     "Källkod")
  639.     (set #choice_install    "Installera")
  640.     (set #choice_update     "Uppdatera")
  641.     (set #choice_uninstall  "Avinstallera")
  642.     (set #prompt_askcpufpu       (cat "Välj den processorkonfiguration för vilken du vill installera " @app-name ".mcc"))
  643.     (set #prompt_info           (cat "\nVälkommen till " @app-name " MUI-klass \n" #copyright "\n\n"))
  644.     (set #prompt_install_uninstall (cat #prompt_info "Vill du installera eller avinstallera klassen?"))
  645.     (set #abort_nocpu (cat @app-name ".mcc kunde inte installeras, eftersom din CPU-konfiguration inte stöds.\n"))
  646.     (set #abort_nomui (cat "Installeraren kunde inte hitta din MUI-installation. Var vänlig installera MUI innan du installerar " @app_name ".\n"))
  647.     (set #abort_oldmui (cat "För att installera " @app-name ".mcc måste du lägst ha version %s av MUI installerad. Du har endast version %s installerad.\n"))
  648.     (set #welcome_install (cat "Välkommen till installationsprogrammet för MUI-klasser.\n"
  649.                    "Var vänlig välj hur installationen skall fortsätta (beroende på dina kunskaper om Amigan)."))
  650.     (set #welcome_uninstall (cat "Välkommen till avinstallationsprogrammet för MUI-klasser.\n"
  651.                  "Var vänlig välj hur installationen skall fortsätta (beroende på dina kunskaper om Amigan)."))
  652.     (set #prompt_uninstall_parts (cat "Vilka delar vill du avinstallera?\n"
  653.                       "Detta kommer också att avinstallera tillhörande kataloger."))
  654.     (set #prompt_uninstall_all (cat "Vill du avinstallera hela " @app-name".mcc?"))
  655.     (set #help_uninstall_all (cat "Om du inte vill avinstallera allt, så kommer du att få välja vilka delar du vill avinstallera."))
  656.     (set #prompt_uninstall_plangs (cat "Vilka programmeringsspråk vill du avinstallera stödet för?"))
  657.     (set #prompt_uninstall_mcp_catalogs (cat "Vilka kataloger för " @app-name ".mcp vill du avinstallera?"))
  658.     (set #prompt_uninstall_mcc_catalogs (cat "Vilka kataloger för " @app-name ".mcc vill du avinstallera?"))
  659.     (set #prompt_uninstall_agdocs (cat "För vilka språk vill du avinstallera AmigaGuide®-dokumentationen?"))
  660.     (set #prompt_uninstall_docs (cat "Vilka typer av dokument vill du avinstallera?"))
  661.     (set #abort_oldversion (cat "Installeraren har upptäckt att version %ld.%ld av " @app-name ".mcc redan är installerat.\n\n"
  662.                 "Om du vill installera den äldre versionen %ld.%ld så måste du avinstallera den nyare versionen först."))
  663.     (set #prompt_update (cat "Vilka delar av " @app-name ".mcc vill du addera till installationen?"))
  664.     (set #prompt_install_mcc_catalogs (cat "Vilka kataloger för " @app-name ".mcc vill du installera?"))
  665.     (set #prompt_install_mcp_catalogs (cat "Vilka kataloger för " @app-name ".mcp vill du installera?"))
  666.     (set #prompt_install_docs "Vilka typer av dokument vill du installera?")
  667.     (set #prompt_install_agdocs "För vilka språk vill du installera AmigaGuide®-dokumentationen?")
  668.     (set #prompt_install_demo "Vill du installera det tillhörande demoprogrammet?")
  669.     (set #help_install_demo (cat "Demoprogrammet är ett litet program som demonstrerar funktionerna i " @app-name "-klassen."))
  670.     (set #prompt_install_plangs "Vilka programmeringsspråk vill du installera stöd för?")
  671.     (set #prompt_install_source "Vill du installera källkoden?")
  672.     (set #help_install_source (cat "Källkoden till " @app-name "-klassen kan användas som ett exempel eller för att göra dina egna (bugfixade) binärer.\nVar försiktig - binärerna kan vara i vilket språk som helst!"))
  673.     (set #prompt_copy "Vill du kopiera följande filer?")
  674.     (set #prompt_makedir "Följande katalog kunde inte hittas, så den måste skapas:")
  675.     (set #prompt_uninstall_asciidocs "För vilka programmeringsspråk vill du avinstallera ASCII-dokumentationen?")
  676.     (set #prompt_install_asciidocs "För vilka programmeringsspråk vill du installera ASCII-dokumentationen?")
  677.     (set #exit_uninstall_finished (cat "Avinstallation färdig!\n"
  678.                        '"'
  679.                        @app-name
  680.                        '"'
  681.                        " har tagits bort från katalogen "
  682.                        '"'
  683.                        @default-dest
  684.                        '"'
  685.                        "."
  686.                   )
  687.     )
  688.    )
  689.    ( ; norsk
  690.     (complete 0)
  691.    )
  692.    ( ; nederlands translation by Eric Krieger <ekrieger@quasar.xs4all.nl>
  693.      ; updated by Jeroen Smits <vektor@pi.net>
  694.     (if (= @installer-version 0)
  695.       (
  696.        (set #help_askoptions "Met het programma Installer tot versie 42.6 kan het gebeuren dat u checkbox-buttons ziet zonder labels. Het selecteren van deze buttons zal worden genegeerd.\n\n")
  697.        (set #help_askchoice "Met het programma Installer tot versie 42.6 kan het gebeuren dat u een radio-buttons ziet zonder labels. Het selecteren van deze buttons zal resulteren in de volgende lager beschikbare selectie.\n\n")
  698.       )
  699.     )
  700.     (set #unknown        "onbekend")
  701.     (set #choice_english    "Engels")
  702.     (set #choice_german     "Duits")
  703.     (set #choice_french     "Frans")
  704.     (set #choice_spanish    "Spaans")
  705.     (set #choice_portuguese "Portugees")
  706.     (set #choice_danish     "Deens")
  707.     (set #choice_italian    "Italiaans")
  708.     (set #choice_dutch        "Nederlands")
  709.     (set #choice_norwegian  "Noors")
  710.     (set #choice_swedish    "Zweeds")
  711.     (set #choice_polish     "Pools")
  712.     (set #choice_finnish    "Fins")
  713.     (set #choice_hungarian  "Hongaars")
  714.     (set #choice_turkish    "Turks")
  715.     (set #choice_greek        "Grieks")
  716.     (set #choice_latin        "Latijns")
  717.     (set #choice_esperanto  "Esperanto")
  718.     (set #choice_russian    "Russisch")
  719.     (set #choice_czech        "Tsjechisch")
  720.     (set #choice_catalonian "Catalaans"); LANGUAGE
  721.  
  722.     (set #choice_catalogs   "Catalogs")
  723.     (set #choice_docs        "Documentatie")
  724.     (set #choice_developer  "Developer materiaal")
  725.     (set #choice_source     "Programma code")
  726.     (set #choice_install    "Installeren")
  727.     (set #choice_update     "Update")
  728.     (set #choice_uninstall  "De-installeren")
  729.     (set #prompt_askcpufpu       (cat "Selecteer A.U.B. de CPU/FPU configuratie voor welke u " @app-name ".mcc wenst te installeren."))
  730.     (set #prompt_info           (cat "\nWelkom tot " @app-name " MUI custom class\n" #copyright "\n\n"))
  731.     (set #prompt_install_uninstall (cat #prompt_info "Wilt u de custom class installeren of de-installeren?"))
  732.     (set #abort_nocpu ( cat "Sorry, dit script is niet in staat om " @app-name ".mcc te installeren, omdat uw CPU configuratie niet ondersteund wordt.\n"))
  733.     (set #abort_nomui (cat "Het " @app-name " MUI custom class kan alleen gebruikt worden met Magic User Interface (MUI), zonder dit is het custom class onbruikbaar!\n\n"
  734.                "De Installer heeft " @default-dest " niet als assign gevonden, installeerd u A.U.B. MUI voor opnieuw een poging tot installeren van " @app-name ".mcc te doen!\n"
  735.               )
  736.     )
  737.     (set #abort_oldmui (cat "Om " @app-name ".mcc te kunnen installeren heeft u MUI %s als een minimum nodig.\n\n"
  738.                 "De Installer heeft gevonden dat alleen MUI %s is geinstalleerd.\n"
  739.                )
  740.     )
  741.     (set #welcome_install (cat "Welkom tot de MUI custom class installatie utilitie.\n"
  742.                    "Geeft u A.U.B. aan hoe de installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  743.               )
  744.     )
  745.     (set #welcome_uninstall (cat "Welkom tot de MUI custom class de-installatie (verwijder) utilitie.\n"
  746.                  "Geeft u A.U.B. aan hoe de de-installatie verder moet vervolgen (gebaseerd op uw kennis van de Amiga computer)."
  747.                 )
  748.     )
  749.     (set #prompt_uninstall_parts (cat "Welke delen wilt u de-installeren?\n"
  750.                       @app-name ".mcp zal ook gerelateerde Catalogs files de-installeren.\n"
  751.                  )
  752.     )
  753.     (set #prompt_uninstall_all (cat "Wilt u alle tot " @app-name ".mcc gerelateerde zaken de-installeren?"))
  754.     (set #help_uninstall_all "Wanneer u niet alles tegelijk wilt de-installeren, wordt u gevraagd welke delem u wel wilt de-installeren.")
  755.     (set #prompt_uninstall_plangs "Voor welke programeertalen wilt u ondersteuning de-installeren?")
  756.     (set #prompt_uninstall_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u de-installeren?"))
  757.     (set #prompt_uninstall_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u de-installeren?"))
  758.     (set #prompt_uninstall_agdocs "Voor welke talen wilt u de AmigaGuide® documentatie de-installeren?")
  759.     (set #prompt_uninstall_docs "Welke type document(en) wilt u de-installeren?")
  760.     (set #abort_oldversion (cat "De Installer heeft versie %ld.%ld van " @app-name ".mcc gevonden, welke al reeds geinstalleerd is.\n\n"
  761.                 "Wanneer u de oudere versie %ld.%ld wilt herinstalleren, wilt u dan A.U.B. eerst de nieuwere versie de-installeren."
  762.                )
  763.     )
  764.     (set #prompt_update (cat "Welke delen van " @app-name ".mcc wilt u toevoegen tot de installatie?"))
  765.     (set #prompt_install_mcc_catalogs (cat "Welke catalogs voor " @app-name ".mcc wilt u installeren?"))
  766.     (set #prompt_install_mcp_catalogs (cat "Welke catalogs voor " @app-name ".mcp wilt u installeren?"))
  767.     (set #prompt_install_docs "Welke type document(en) wilt u installeren?")
  768.     (set #prompt_install_agdocs "Voor welke talen wilt u de AmigaGuide® documentatie installeren?")
  769.     (set #prompt_install_demo "Wilt u de meegeleverde demo installeren?")
  770.     (set #help_install_demo (cat "De demo is een klein programma welke het gebruik demonstreerd van de " @app-name "custom class."))
  771.     (set #prompt_install_plangs "Voor welke programeertalen wilt u ondersteuning installeren?")
  772.     (set #prompt_install_source "Wilt u de programma code installeren?")
  773.     (set #help_install_source (cat "De programma code van de custom class genaamd " @app-name " kan gebruikt worden als een voorbeeld of u kunt er uw eigen (bug fixed) programma's mee maken.\nLet op - De programma code kan in elke taal zijn geschreven!"))
  774.     (set #prompt_copy "Wilt u de volgende file(s) kopieren?")
  775.     (set #prompt_makedir "De volgende directory is niet gevonden, daarom zal deze worden aangemaakt:")
  776.  
  777.     (set #prompt_uninstall_asciidocs "Voor welke talen wilt u de ASCII documentatie de-installeren?")
  778.     (set #prompt_install_asciidocs "Voor welke talen wilt u de ASCII documentatie installeren?")
  779.     (set #exit_uninstall_finished (cat "De-installatie voltooid!\n"
  780.                        '"'
  781.                        @app-name
  782.                        '"'
  783.                        " is verwijderd van uw "
  784.                        '"'
  785.                        @default-dest
  786.                        '"'
  787.                        " directory (of partitie)."
  788.                   )
  789.     )
  790.    )
  791.    ( ; italiano translation by Paolo Menichetti <Paolo.Menichetti@infoservice.it>
  792.      ; updated by Vincenzo Gervasi <gervasi@di.unipi.it>
  793.     (if (= @installer-version 0)
  794.       (
  795.        (set #help_askoptions "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni senza descrizione. Eventuali selezioni di questi bottoni saranno ignorate.\n\n")
  796.        (set #help_askchoice "Con una versione dell'Installer minore della 42.6 potresti vedere dei bottoni mutualmente esclusivi senza descrizione. Un click su tali bottoni corrisponde all'attivazione della successiva voce nella lista che sia selezionabile.\n\n")
  797.       )
  798.     )
  799.     (set #unknown        "sconosciuto")
  800.     (set #choice_english    "Inglese")
  801.     (set #choice_german     "Tedesco")
  802.     (set #choice_french     "Francese")
  803.     (set #choice_spanish    "Spagnolo")
  804.     (set #choice_portuguese "Portoghese")
  805.     (set #choice_danish     "Danese")
  806.     (set #choice_italian    "Italiano")
  807.     (set #choice_dutch        "Tedesco")
  808.     (set #choice_norwegian  "Norvegese")
  809.     (set #choice_swedish    "Svedese")
  810.     (set #choice_polish     "Polacco")
  811.     (set #choice_finnish    "Finlandese")
  812.     (set #choice_hungarian  "Ungherese")
  813.     (set #choice_turkish    "Turco")
  814.     (set #choice_greek        "Greco")
  815.     (set #choice_latin        "Latino")
  816.     (set #choice_esperanto  "Esperanto")
  817.     (set #choice_russian    "Russo")
  818.     (set #choice_czech        "Ceco")
  819.     (set #choice_catalonian "Catalano"); LANGUAGE
  820.  
  821.     (set #choice_catalogs   "Cataloghi")
  822.     (set #choice_docs        "Documentazione")
  823.     (set #choice_developer  "Materiale per sviluppatori")
  824.     (set #choice_source     "Codice sorgente")
  825.     (set #choice_install    "Installo")
  826.     (set #choice_update     "Aggiornamento")
  827.     (set #choice_uninstall  "Disinstallazione")
  828.     (set #prompt_askcpufpu       (cat "Per favore, seleziona la CPU/FPU del tuo computer; verrà così installata la classe " @app-name ".mcc ottimizzata."))
  829.     (set #prompt_info           (cat "\nBenvenuto nell'installazione di " @app-name " MUI custom class\n" #copyright "\n\n"))
  830.     (set #prompt_install_uninstall (cat #prompt_info "Vuoi installare o disinstallare la custom class?"))
  831.     (set #abort_nocpu ( cat "Spiacente, l'installatore non può installare la classe " @app-name ".mcc, perché la tua CPU non è supportata.\n"))
  832.     (set #abort_nomui (cat "La custom class MUI " @app-name " può essere usata solo con Magic User Interface (MUI), senza la quale la custom class è inutile!\n\n"
  833.                "L'installatore non ha trovato l'assegnamento " @default-dest ", dunque installa MUI prima di installare " @app-name ".mcc!\n"
  834.               )
  835.     )
  836.     (set #abort_oldmui (cat "Per installare " @app-name ".mcc hai bisogno quantomeno della versione %s di MUI.\n\n"
  837.                 "L'installatore ha trovato installata solo la versione %s di MUI.\n"
  838.                )
  839.     )
  840.     (set #welcome_install (cat "Benvenuto nella procedura di installazione delle custom classes di MUI.\n"
  841.                    "Indicare, per favore, come questa procedura di installazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
  842.               )
  843.     )
  844.     (set #welcome_uninstall (cat "Benvenuto nella procedura di disinstallazione delle custom classes di MUI.\n"
  845.                      "Indicare, per favore, come questa procedura di disinstallazione dovrà operare (in base alla tua conoscenza del computer Amiga)."
  846.                 )
  847.     )
  848.     (set #prompt_uninstall_parts (cat "Quali parti vuoi che siano disinstallate?\n"
  849.                       @app-name ".mcp sarà disinstallato con i relativi cataloghi.\n"
  850.                  )
  851.     )
  852.     (set #prompt_uninstall_all (cat "Vuoi disinstallare tutto quello che è correlato a " @app-name ".mcc?"))
  853.     (set #help_uninstall_all "Se non vuoi disinstallare tutto, allora ti verrà richiesto cosa disinstallare.")
  854.     (set #prompt_uninstall_plangs "Quali file di supporto per i linguaggi di programmazione vuoi rimuovere?")
  855.     (set #prompt_uninstall_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi rimuovere?"))
  856.     (set #prompt_uninstall_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi rimuovere?"))
  857.     (set #prompt_uninstall_agdocs "Per quali linguaggi voi rimuovere la documentazione in formato AmigaGuide®?")
  858.     (set #prompt_uninstall_docs "Quali tipi di documentazione vuoi rimuovere?")
  859.     (set #abort_oldversion (cat "L'installatore ha trovato la versione %ld.%ld di " @app-name ".mcc già installata.\n\n"
  860.                 "Se vuoi reinstallare la vecchia versione %ld.%ld allora prima rimuovi la nuova versione."
  861.                )
  862.     )
  863.     (set #prompt_update (cat "Quali parti di " @app-name ".mcc vuoi aggiungere alla installazione?"))
  864.     (set #prompt_install_mcc_catalogs (cat "Quali cataloghi di " @app-name ".mcc vuoi installare?"))
  865.     (set #prompt_install_mcp_catalogs (cat "Quali cataloghi di " @app-name ".mcp vuoi installare?"))
  866.     (set #prompt_install_docs "Quali tipi di documentazione vuoi installare?")
  867.     (set #prompt_install_agdocs "Per quali linguaggi vuoi installare la documentazione in AmigaGuide®?")
  868.     (set #prompt_install_demo "Vuoi installare i programmi dimostrativi forniti?")
  869.     (set #help_install_demo (cat "Un dimostrativo è un piccolo programma che illustra l'uso della custom class " @app-name ))
  870.     (set #prompt_install_plangs "Per quale linguaggio di programmazione vuoi installare i file di supporto?")
  871.     (set #prompt_install_source "Codice sorgente")
  872.     (set #help_install_source (cat "Puoi usare il codice sorgente della classe custom " @app-name " come esempio, o per creare eseguibili corretti o aggiornati.\nAttenzione - il codice sorgente potrebbe essere in qualunque linguaggio!"))
  873.     (set #prompt_copy "Vuoi copiare i seguenti file?")
  874.     (set #prompt_makedir "La seguente directory non è stata trovata, dunque verrà creata:")
  875.     (set #prompt_uninstall_asciidocs "Per quali linguaggi di programmazione vuoi rimuovere la documentazione in ASCII?")
  876.     (set #prompt_install_asciidocs "Per quali linguaggi di programmazione vuoi installare la documentazione in ASCII?")
  877.     (set #exit_uninstall_finished (cat "Disinstallazione completata!\n"
  878.                        '"'
  879.                        @app-name
  880.                        '"'
  881.                        " è stato rimosso dalla directory "
  882.                        '"'
  883.                        @default-dest
  884.                        '"'
  885.                   )
  886.     )
  887.    )
  888.    ( ; dansk translation by Ole Friis <ole_f@post3.tele.dk>
  889.     (if (= @installer-version 0)
  890.       (
  891.        (set #help_askoptions "Med en Installer ældre end 42.6 kan det ske at du ser hak-bokse uden navn. Der vil intet ske ved at trykke på dem.\n\n")
  892.        (set #help_askchoice "Med en Installer ældre end 42.6 kan det ske at du ser radioknapper uden navn. Trykker du på en, vil du i stedet vælge den nedenunder.\n\n")
  893.       )
  894.     )
  895.     (set #unknown        "ukendt")
  896.     (set #choice_english    "Engelsk")
  897.     (set #choice_german     "Tysk")
  898.     (set #choice_french     "Fransk")
  899.     (set #choice_spanish    "Spansk")
  900.     (set #choice_portuguese "Portugisisk")
  901.     (set #choice_danish     "Dansk")
  902.     (set #choice_italian    "Italiensk")
  903.     (set #choice_dutch        "Hollandsk")
  904.     (set #choice_norwegian  "Norsk")
  905.     (set #choice_swedish    "Svensk")
  906.     (set #choice_polish     "Polsk")
  907.     (set #choice_finnish    "Finsk")
  908.     (set #choice_hungarian  "Ungarsk")
  909.     (set #choice_turkish    "Tyrkisk")
  910.     (set #choice_greek        "Græsk")
  911.     (set #choice_latin        "Latin")
  912.     (set #choice_esperanto  "Esperanto")
  913.     (set #choice_russian    "Russisk")
  914.     (set #choice_czech        "Tjekkisk")
  915.     (set #choice_catalonian "Katalansk"); LANGUAGE
  916.  
  917.     (set #choice_catalogs   "Oversættelser")
  918.     (set #choice_docs        "Dokumentation")
  919.     (set #choice_developer  "Udvikler-materiale")
  920.     (set #choice_source     "Kildekode")
  921.     (set #choice_install    "Installere")
  922.     (set #choice_update     "Opdatere")
  923.     (set #choice_uninstall  "Fjerne")
  924.     (set #prompt_askcpufpu       (cat "Vælg venligst CPU/FPU-konfigurationen for hvilken du ønsker at installere " @app-name ".mcc"))
  925.     (set #prompt_info           (cat "\nVelkommen til " @app-name " MUI custom class\n" #copyright "\n\n"))
  926.     (set #prompt_install_uninstall (cat #prompt_info "Ønsker du at installere eller at fjerne den pågældende custom class?"))
  927.     (set #abort_nocpu ( cat "Desværre, programmet kan ikke installere " @app-name ".mcc, idet din CPU-konfiguration ikke er understøttet.\n"))
  928.     (set #abort_nomui (cat @app-name " MUI custom class'en kan kun bruges med Magic User Interface (MUI), og uden denne er custom class'en ubrugelig!\n\n"
  929.                "`Install' har ikke fundet " @default-dest " til at være assignet, så installér venligst MUI før du installerer " @app-name ".mcc!\n"
  930.               )
  931.     )
  932.     (set #abort_oldmui (cat "For at installere " @app-name ".mcc behøver du MUI %s som minimum.\n\n"
  933.                 "`Install' har kun fundet MUI %s installeret.\n"
  934.                )
  935.     )
  936.     (set #welcome_install (cat "Velkommen til MUI custom class-installationsprogrammet.\n"
  937.                    "Vælg venligst hvordan installationen skal forløbe (baseret på dit kendskab til Amiga-computeren)."
  938.               )
  939.     )
  940.     (set #welcome_uninstall (cat "Velkommen til MUI custom class-fjerneprogrammet.\n"
  941.                  "Vælg venligst hvordan fjernelsen skal forløbe (baseret på dit kendskab til Amiga-computeren)."
  942.                 )
  943.     )
  944.     (set #prompt_uninstall_parts (cat "Hvilke dele ønsker du at fjerne?\n"
  945.                       @app-name ".mcp vil også fjerne de tilhørende oversættelser.\n"
  946.                  )
  947.     )
  948.     (set #prompt_uninstall_all (cat "Ønsker du at fjerne alt relateret til " @app-name ".mcc?"))
  949.     (set #help_uninstall_all "Hvis du ikke ønsker at fjerne alt, vil du blive spurgt hvilke dele der skal fjernes.")
  950.     (set #prompt_uninstall_plangs "Hvilke programmeringssprog ønsker du at fjerne understøttelse fra?")
  951.     (set #prompt_uninstall_mcp_catalogs (cat "Hvilke oversættelser af " @app-name ".mcp ønsker du at fjerne?"))
  952.     (set #prompt_uninstall_mcc_catalogs (cat "Hvilke oversættelser af " @app-name ".mcc ønsker du at fjerne?"))
  953.     (set #prompt_uninstall_agdocs "For hvilke sprog ønsker du at fjerne AmigaGuide®-dokumentation?")
  954.     (set #prompt_uninstall_docs "Hvilken type dokumenter ønsker du at fjerne?")
  955.     (set #abort_oldversion (cat "`Installer' har opdaget at version %ld.%ld af " @app-name ".mcc allerede er installeret.\n\n"
  956.                 "Hvis du ønsker at gen-installere den gamle version %ld.%ld, så fjern venligst den nye version først."
  957.                )
  958.     )
  959.     (set #prompt_update (cat "Hvilke dele af " @app-name ".mcc ønsker du at tilføje?"))
  960.     (set #prompt_install_mcc_catalogs (cat "Hvilke oversættelser af " @app-name ".mcc ønsker du at installere?"))
  961.     (set #prompt_install_mcp_catalogs (cat "Hvilke oversættelser af " @app-name ".mcp ønsker du at installere?"))
  962.     (set #prompt_install_docs "Hvilken type dokumenter ønsker du at installere?")
  963.     (set #prompt_install_agdocs "På hvilke sprog ønsker du at installere AmigaGuide®-dokumentation?")
  964.     (set #prompt_install_demo "Ønsker du at installere det inkluderede demonstrationsprogram?")
  965.     (set #help_install_demo (cat "Dette demonstrationsprogram er et lille program som demonstrerer brugen af " @app-name "custom class."))
  966.     (set #prompt_install_plangs "Hvilke programmeringssprog ønsker du at installere understøttelse af?")
  967.     (set #prompt_install_source "Ønsker du at installere kildekoden?")
  968.     (set #help_install_source (cat "Kildekoden til " @app-name "-customklassen kan bruges som et eksempel eller til at lave dine egne (fejlrettede) udgaver.\nVær forsigtig - kildekoden kan være i et hvilket som helst programmeringssprog!"))
  969.     (set #prompt_copy "Ønsker du at kopiere de(n) følgende fil(er)?")
  970.     (set #prompt_makedir "Følgende skuffe var ikke fundet, så den skal skabes:")
  971.     (set #prompt_uninstall_asciidocs "For hvilke sprog ønsker du at fjerne ASCII-dokumentation?")
  972.     (set #prompt_install_asciidocs "På hvilke sprog ønsker du at installere ASCII-dokumentation?")
  973.     (set #exit_uninstall_finished (cat "Fjernelse færdig!\n"
  974.                        '"'
  975.                        @app-name
  976.                        '"'
  977.                        " er fjernet fra din "
  978.                        '"'
  979.                        @default-dest
  980.                        '"'
  981.                        "-skuffe (eller partition)."
  982.                   )
  983.     )
  984.    )
  985.    ( ; português
  986.     (complete 0)
  987.    )
  988.    ( ; español
  989.     (complete 0)
  990.    )
  991.    ( ; français translation by Francis Labrie <fb691875@er.uqam.ca>
  992.     (if (= @installer-version 0)
  993.       (
  994.  
  995.        (set #help_askoptions "Avec l'Installer à la version antérieur à 42.6 il est possible que des cases à crochets s'affichent sans étiquettes.  La sélection de ces cases vierges sera tout simplement ignorée.\n\n")
  996.        (set #help_askchoice "Avec l'Installer à la version antérieur à 42.6 il est possible que des boutons radios s'affichent sans étiquettes.  La sélection de ces boutons correspondra alors à une sélection du prochain bouton valide.\n\n")
  997.       )
  998.     )
  999.     (set #unknown        "Inconnu")
  1000.     (set #choice_english    "Anglais")
  1001.     (set #choice_german     "Allemand")
  1002.     (set #choice_french     "Français")
  1003.     (set #choice_spanish    "Espagnol")
  1004.     (set #choice_portuguese "Portuguais")
  1005.     (set #choice_danish     "Danois")
  1006.     (set #choice_italian    "Italien")
  1007.     (set #choice_dutch        "Hollandais")
  1008.     (set #choice_norwegian  "Norvégien")
  1009.     (set #choice_swedish    "Suédois")
  1010.     (set #choice_polish     "Polonais")
  1011.     (set #choice_finnish    "Finlandais")
  1012.     (set #choice_hungarian  "Hongrois")
  1013.     (set #choice_turkish    "Turc")
  1014.     (set #choice_greek        "Grec")
  1015.     (set #choice_latin        "Latin")
  1016.     (set #choice_esperanto  "Espéranto")
  1017.     (set #choice_russian    "Russe")
  1018.     (set #choice_czech        "Tchèque")
  1019.     (set #choice_catalonian "Catalan"); LANGUAGE
  1020.  
  1021.     (set #choice_catalogs   "Catalogues")
  1022.     (set #choice_docs        "Documentation")
  1023.     (set #choice_developer  "Outils de développement")
  1024.     (set #choice_source     "Code source")
  1025.     (set #choice_install    "Installer")
  1026.     (set #choice_update     "Mise à niveau")
  1027.     (set #choice_uninstall  "Désinstaller")
  1028.     (set #prompt_askcpufpu       (cat "Sélectionnez la configuration de processeur pour lequel vous souhaitez installer " @app-name ".mcc"))
  1029.     (set #prompt_info           (cat "\nBienvenue à la classe MUI " @app-name "\n" #copyright "\n\n"))
  1030.     (set #prompt_install_uninstall (cat #prompt_info "Souhaite-vous installer ou désinstaller cette classe?"))
  1031.     (set #abort_nocpu ( cat "Désolé, ce script est incapable d'installer " @app-name ".mcc, parce que votre choix de configuration de processeur n'y est pas supporté.\n"))
  1032.     (set #abort_nomui (cat "La classe MUI " @app-name " ne peut être utilisée qu'avec Magic User Interface (MUI).  En dehors ce système, cette classe demeure inutilisable!\n\n"
  1033.                "Le répertoire " @default-dest " est introuvable, veuillez installer MUI avant de tenter d'installer " @app-name ".mcc!\n"
  1034.               )
  1035.     )
  1036.     (set #abort_oldmui (cat "MUI %s est le minimum requis afin d'installer " @app-name ".mcc.\n\n"
  1037.                 "Pour l'instant, seul MUI %s semble installé sur votre système.\n"
  1038.                )
  1039.     )
  1040.     (set #welcome_install (cat "Bienvenue à l'utilitaire d'installation de classe MUI.\n"
  1041.                    "Veuillez indiquer le type d'installation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
  1042.               )
  1043.     )
  1044.     (set #welcome_uninstall (cat "Bienvenue à l'utilitaire de désinstallation de classe MUI.\n"
  1045.                  "Veuillez indiquer le type de désinstallation souhaité\n(basé sur votre connaissance de l'ordinateur Amiga)."
  1046.                 )
  1047.     )
  1048.     (set #prompt_uninstall_parts (cat "Quelles sections souhaitez-vous désinstaller?\n"
  1049.                       "Notez que les catalogues relatifs à " @app-name ".mcp seront également désinstallés.\n"
  1050.                  )
  1051.     )
  1052.     (set #prompt_uninstall_all (cat "Désirez-vous désinstaller tous les fichiers relatifs à " @app-name ".mcc?"))
  1053.     (set #help_uninstall_all "Si vous ne désirez pas tout désinstaller, il vous sera alors demander de préciser quelles sections vous souhaitez enlever.")
  1054.     (set #prompt_uninstall_plangs "Pour quels langages de programmation souhaitez-vous désinstaller les documents d'assistance technique?")
  1055.     (set #prompt_uninstall_mcp_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcp?"))
  1056.     (set #prompt_uninstall_mcc_catalogs (cat "Lesquels de ces catalogues souhaitez-vous désinstaller pour " @app-name ".mcc?"))
  1057.     (set #prompt_uninstall_agdocs "Pour quelles langues souhaitez-vous désinstaller la documentation de format AmigaGuide®?")
  1058.     (set #prompt_uninstall_docs "Quelles types de document souhaitez-vous désinstaller?")
  1059.     (set #abort_oldversion (cat "La version %ld.%ld de " @app-name ".mcc semble être déjà installée.\n\n"
  1060.                 "Si vous souhaitez réinstaller l'ancienne version %ld.%ld, veuillez désinstaller d'abord la nouvelle version."
  1061.                )
  1062.     )
  1063.     (set #prompt_update (cat "Quelles sections de " @app-name ".mcc souhaitez-vous ajouter à l'installation?"))
  1064.     (set #prompt_install_mcc_catalogs (cat "Lesquels de ces catalogues destinés à " @app-name ".mcc souhaitez-vous installer?"))
  1065.     (set #prompt_install_mcp_catalogs (cat "Lesquels de ces catalogues destinés à " @app-name ".mcp souhaitez-vous installer?"))
  1066.     (set #prompt_install_docs "Quels types de document souhaitez-vous installer?")
  1067.     (set #prompt_install_agdocs "Pour quelles langues souhaitez-vous installer la documentation de format AmigaGuide®?")
  1068.     (set #prompt_install_demo "Voulez-vous installer le programme de démonstration?")
  1069.     (set #help_install_demo (cat "Ce programme de démonstration est un petit logiciel démontrant l'utilisation de la nouvelle classe MUI " @app-name "."))
  1070.     (set #prompt_install_plangs "Pour quels langages de programmation souhaitez-vous installer les documents d'assistance technique?")
  1071.     (set #prompt_install_source "Désirez-vous installer le code source ?")
  1072.     (set #help_install_source (cat "Le code source de la classe " @app-name " peut être utilisé en exemple afin de créer vos propres classes.\nAttention - le code source peut être écrit en n'importe quel langage !"))
  1073.     (set #prompt_copy "Souhaitez-vous copier le(s) fichier(s) suivant(s)?")
  1074.     (set #prompt_makedir "Puisque le tiroir suivant n'a pas été trouvé, il doit donc être créé:")
  1075.  
  1076.     (set #prompt_uninstall_asciidocs "Pour quelles langues souhaitez-vous désinstaller la documentation de format ASCII?")
  1077.     (set #prompt_install_asciidocs "Pour quelles langues souhaitez-vous installer la documentation de format ASCII?")
  1078.     (set #exit_uninstall_finished (cat "Désinstallation complétée !\n« "
  1079.                        @app-name
  1080.                        " » est retirée du répertoire (ou partition) « "
  1081.                        @default-dest
  1082.                        " »."
  1083.                   )
  1084.     )
  1085.    )
  1086.    ( ; deutsch
  1087.     (if (= @installer-version 0)
  1088.       (
  1089.        (set #help_askoptions "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Checkbox-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe wird ignoriert.\n\n")
  1090.        (set #help_askchoice "Mit einem Installer der älter als Version 42.6 ist, kann es passieren, daß Radio-Knöpfe ohne Labels zu sehen sind. Das Setzen dieser Knöpfe entspricht der nächst kleineren Auswahl.\n\n")
  1091.       )
  1092.     )
  1093.     (set #unknown        "unbekannt")
  1094.     (set #choice_english    "Englisch")
  1095.     (set #choice_german     "Deutsch")
  1096.     (set #choice_french     "Französisch")
  1097.     (set #choice_spanish    "Spanisch")
  1098.     (set #choice_portuguese "Portugiesisch")
  1099.     (set #choice_danish     "Dänisch")
  1100.     (set #choice_italian    "Italienisch")
  1101.     (set #choice_dutch        "Niederländisch")
  1102.     (set #choice_norwegian  "Norwegisch")
  1103.     (set #choice_swedish    "Schwedisch")
  1104.     (set #choice_polish     "Polnisch")
  1105.     (set #choice_finnish    "Finnisch")
  1106.     (set #choice_hungarian  "Ungarisch")
  1107.     (set #choice_turkish    "Türkisch")
  1108.     (set #choice_greek        "Griechisch")
  1109.     (set #choice_latin        "Latein")
  1110.     (set #choice_esperanto  "Esperanto")
  1111.     (set #choice_russian    "Russisch")
  1112.     (set #choice_czech        "Tschechisch")
  1113.     (set #choice_catalonian "Katalanisch"); LANGUAGE
  1114.  
  1115.     (set #choice_catalogs   "Kataloge")
  1116.     (set #choice_docs        "Dokumentation")
  1117.     (set #choice_developer  "Entwickler-Material")
  1118.     (set #choice_source     "Quellcode")
  1119.     (set #choice_install    "Installieren")
  1120.     (set #choice_update     "Updaten")
  1121.     (set #choice_uninstall  "Deinstallieren")
  1122.     (set #prompt_askcpufpu (cat "Bitte wählen Sie die CPU/FPU Konfiguration, für die " @app-name ".mcc installiert werden soll."))
  1123.     (set #prompt_info (cat "\nWillkommen zur " @app-name " MUI-Klasse\n" #copyright "\n\n"))
  1124.     (set #prompt_install_uninstall (cat #prompt_info "Wollen Sie die Klasse installieren oder deinstallieren?"))
  1125.     (set #abort_nocpu (cat @app-name ".mcc kann leider nicht installiert werden, da Ihre CPU-Konfiguration nicht unterstützt wird.\n"))
  1126.     (set #abort_nomui (cat "Die " @app-name " MUI-Klasse kann nur zusammen mit dem Magic User Interface (MUI) benutzt werden, ohne MUI ist die Klasse nutzlos!\n\n"
  1127.                "Der Installer konnte " @default-dest " nicht finden, installieren Sie bitte erst MUI, bevor Sie versuchen " @app-name ".mcc zu installieren!\n"
  1128.               )
  1129.     )
  1130.     (set #abort_oldmui (cat "Um " @app-name ".mcc zu installieren wird mindestens MUI %s benötigt.\n\n"
  1131.                 "Der Installer konnte aber nur MUI %s finden.\n"
  1132.                )
  1133.     )
  1134.     (set #welcome_install (cat "Willkommen zum MUI-Klassen Installations-Werkzeug.\n"
  1135.                    "Bitte geben Sie an, wie die Installation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
  1136.               )
  1137.     )
  1138.     (set #welcome_uninstall (cat "Willkommen zum MUI-Klassen deinstallations Werkzeug.\n"
  1139.                  "Bitte geben Sie an, wie die Deinstallation geschehen soll (basierend auf Ihrem Wissen über den Amiga Computer)."
  1140.                 )
  1141.     )
  1142.     (set #prompt_uninstall_parts (cat "Welche Teile wollen Sie deinstallieren?\n"
  1143.                       @app-name ".mcp deinstalliert auch die entsprechenden Kataloge.\n"
  1144.                  )
  1145.     )
  1146.     (set #prompt_uninstall_all (cat "Wollen Sie alles was mit " @app-name ".mcc zu tun hat deinstallieren?"))
  1147.     (set #help_uninstall_all "Wenn Sie nicht alles deinstallieren wollen, werden Sie gefragt welche Teile deinstalliert werden sollen.")
  1148.     (set #prompt_uninstall_plangs "Unterstützung für welche Programmiersprache wollen Sie deinstallieren?")
  1149.     (set #prompt_uninstall_mcp_catalogs (cat "Welche Katalog von " @app-name ".mcp wollen Sie deinstallieren?"))
  1150.     (set #prompt_uninstall_mcc_catalogs (cat "Welche Katalog von " @app-name ".mcc wollen Sie deinstallieren?"))
  1151.     (set #prompt_uninstall_agdocs "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation deinstallieren?")
  1152.     (set #prompt_uninstall_docs "Welche Art von Dokumenten wollen Sie deinstallieren?")
  1153.     (set #abort_oldversion (cat "Der Installer hat die bereits installierte Version %ld.%ld von " @app-name ".mcc gefunden.\n\n"
  1154.                 "Wenn Sie die ältere Version %ld.%ld wieder installieren wollen, deinstallieren Sie die neuere Version bitte zuerst."
  1155.                )
  1156.     )
  1157.     (set #prompt_update (cat "Welche Teile wollen Sie zur " @app-name ".mcc Installation hinzufügen?"))
  1158.     (set #prompt_install_mcc_catalogs (cat "Welche Kataloge für " @app-name ".mcc wollen Sie installieren?"))
  1159.     (set #prompt_install_mcp_catalogs (cat "Welche Kataloge für " @app-name ".mcp wollen Sie installieren?"))
  1160.     (set #prompt_install_docs "Welche Art von Dokumenten wollen Sie installieren?")
  1161.     (set #prompt_install_agdocs "Für welche Sprachen wollen Sie die AmigaGuide® Dokumentation installieren?")
  1162.     (set #prompt_install_demo "Wollen Sie die mitgelieferte Demo installieren?")
  1163.     (set #help_install_demo (cat "Die Demo ist ein kleines Programm, welches die Benutzung der " @app-name " Klasse zeigt."))
  1164.     (set #prompt_install_plangs "Unterstützung für welche Programmiersprache wollen Sie installieren?")
  1165.     (set #prompt_install_source "Wollen Sie den Quellcode installieren?")
  1166.     (set #help_install_source (cat "Der Quellcode der " @app-name " Klasse kann als Beispiel benutzt werden, oder aber um eigene (korrigierte) Binärfiles zu erzeugen.\nSeien Sie vorsichtig - der Quellcode kann in einer beliebigen Sprache vorliegen!"))
  1167.     (set #prompt_copy "Wollen Sie das/die folgenden Datei(en) kopieren?")
  1168.     (set #prompt_makedir "Das folgende Verzeichnis wurde nicht gefunden, deshalb muß es erzeugt werden:")
  1169.     (set #prompt_uninstall_asciidocs "Für welche Sprachen wollen Sie die ASCII Dokumentation deinstallieren?")
  1170.     (set #prompt_install_asciidocs "Für welche Sprachen wollen Sie die ASCII Dokumentation installieren?")
  1171.     (set #exit_uninstall_finished (cat "Deinstallation abgeschlossen!\n"
  1172.                        '"'
  1173.                        @app-name
  1174.                        '"'
  1175.                        " wurde aus Ihrer Schublade (oder Partition) "
  1176.                        '"'
  1177.                        @default-dest
  1178.                        '"'
  1179.                        " entfernt."
  1180.                   )
  1181.     )
  1182.    )
  1183.    ( ; english
  1184.     (if (= @installer-version 0)
  1185.       (
  1186.        (set #help_askoptions "With an Installer prior to version 42.6 it can happen that you see checkbox-buttons without labels. Selecting these buttons will be ignored.\n\n")
  1187.        (set #help_askchoice "With an Installer prior to version 42.6 it can happen that you see radio-buttons without labels. Selecting these buttons will result in the next lower available selection.\n\n")
  1188.       )
  1189.     )
  1190.     (set #unknown        "unknown")
  1191.     (set #choice_english    "English")
  1192.     (set #choice_german     "German")
  1193.     (set #choice_french     "French")
  1194.     (set #choice_spanish    "Spanish")
  1195.     (set #choice_portuguese "Portuguese")
  1196.     (set #choice_danish     "Danish")
  1197.     (set #choice_italian    "Italian")
  1198.     (set #choice_dutch        "Dutch")
  1199.     (set #choice_norwegian  "Norwegian")
  1200.     (set #choice_swedish    "Swedish")
  1201.     (set #choice_polish     "Polish")
  1202.     (set #choice_finnish    "Finnish")
  1203.     (set #choice_hungarian  "Hungarian")
  1204.     (set #choice_turkish    "Turkish")
  1205.     (set #choice_greek        "Greek")
  1206.     (set #choice_latin        "Latin")
  1207.     (set #choice_esperanto  "Esperanto")
  1208.     (set #choice_russian    "Russian")
  1209.     (set #choice_czech        "Czech")
  1210.     (set #choice_catalonian "Catalonian"); LANGUAGE
  1211.  
  1212.     (set #choice_catalogs   "Catalogs")
  1213.     (set #choice_docs        "Documentation")
  1214.     (set #choice_developer  "Developer material")
  1215.     (set #choice_source     "Source code")
  1216.     (set #choice_install    "Install")
  1217.     (set #choice_update     "Update")
  1218.     (set #choice_uninstall  "Uninstall")
  1219.     (set #prompt_askcpufpu       (cat "Please select the CPU/FPU configuration for which you want to install " @app-name ".mcc"))
  1220.     (set #prompt_info           (cat "\nWelcome to the " @app-name " MUI custom class\n" #copyright "\n\n"))
  1221.     (set #prompt_install_uninstall (cat #prompt_info "Do you want to install or uninstall the custom class?"))
  1222.     (set #abort_nocpu ( cat "Sorry, the script is unable to install " @app-name ".mcc, because your CPU configuration is not supported.\n"))
  1223.     (set #abort_nomui (cat "The " @app-name " MUI custom class can only be used with the Magic User Interface (MUI), without it the custom class is useless!\n\n"
  1224.                "The installer has not found " @default-dest " to be assigned, so please install MUI before trying to install " @app-name ".mcc!\n"
  1225.               )
  1226.     )
  1227.     (set #abort_oldmui (cat "To install " @app-name ".mcc you need MUI %s as a minimum.\n\n"
  1228.                 "The installer has found that only MUI %s is installed.\n"
  1229.                )
  1230.     )
  1231.     (set #welcome_install (cat "Welcome to the MUI custom class installation utility.\n"
  1232.                    "Please indicate how the installation should proceed (based upon your knowledge of the Amiga computer)."
  1233.               )
  1234.     )
  1235.     (set #welcome_uninstall (cat "Welcome to the MUI custom class uninstallation utility.\n"
  1236.                  "Please indicate how the uninstallation should proceed (based upon your knowledge of the Amiga computer)."
  1237.                 )
  1238.     )
  1239.     (set #prompt_uninstall_parts (cat "Which parts do you want to uninstall?\n"
  1240.                       @app-name ".mcp will uninstall relating catalogs too.\n"
  1241.                  )
  1242.     )
  1243.     (set #prompt_uninstall_all (cat "Do you want to uninstall all things related with " @app-name ".mcc?"))
  1244.     (set #help_uninstall_all "If you do not want to uninstall all, you will be asked which parts you want to uninstall.")
  1245.     (set #prompt_uninstall_plangs "Support for which programming languages do you want to uninstall?")
  1246.     (set #prompt_uninstall_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to uninstall?"))
  1247.     (set #prompt_uninstall_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to uninstall?"))
  1248.     (set #prompt_uninstall_agdocs "For which languages do you want to uninstall the AmigaGuide® documentation?")
  1249.     (set #prompt_uninstall_docs "Which type of documents do you want to uninstall?")
  1250.     (set #abort_oldversion (cat "The Installer found that version %ld.%ld of " @app-name ".mcc is already installed.\n\n"
  1251.                 "If you want to reinstall the older version %ld.%ld then please uninstall the newer version first."
  1252.                )
  1253.     )
  1254.     (set #prompt_update (cat "Which parts of " @app-name ".mcc do you want to add to the installation?"))
  1255.     (set #prompt_install_mcc_catalogs (cat "Which catalogs for " @app-name ".mcc do you want to install?"))
  1256.     (set #prompt_install_mcp_catalogs (cat "Which catalogs for " @app-name ".mcp do you want to install?"))
  1257.     (set #prompt_install_docs "Which type of documents do you want to install?")
  1258.     (set #prompt_install_agdocs "For which languages do you want to install the AmigaGuide® documentation?")
  1259.     (set #prompt_install_demo "Do you want to install the supplied demo?")
  1260.     (set #help_install_demo (cat "The demo is a small program that demonstrates the usage of the " @app-name "custom class."))
  1261.     (set #prompt_install_plangs "Support for which programming languages do you want to install?")
  1262.     (set #prompt_install_source "Do you want to install the source code?")
  1263.     (set #help_install_source (cat "The source code of " @app-name " custom class can be used as an example or you can create your own (bug fixed) binaries.\nBe careful - the source code can be in any language!"))
  1264.     (set #prompt_copy "Do you want to copy the following file(s)?")
  1265.     (set #prompt_makedir "The following directory was not found, so it must be created:")
  1266.  
  1267.     (set #prompt_uninstall_asciidocs "For which languages do you want to uninstall the ASCII documentation?")
  1268.     (set #prompt_install_asciidocs "For which languages do you want to install the ASCII documentation?")
  1269.     (set #exit_uninstall_finished (cat "Uninstallation complete!\n"
  1270.                        '"'
  1271.                        @app-name
  1272.                        '"'
  1273.                        " is removed from your "
  1274.                        '"'
  1275.                        @default-dest
  1276.                        '"'
  1277.                        " drawer (or partition)."
  1278.                   )
  1279.     )
  1280.    )
  1281.  )
  1282.  (if (> @installer-version 0)
  1283.    (
  1284.     (set #help_askoptions "")
  1285.     (set #help_askchoice "")
  1286.    )
  1287.  )
  1288.  
  1289. ; --- BitToLanguage -----------------------------------------------------------
  1290.  
  1291.  (procedure P_BitToLanguage
  1292.   ; Params:
  1293.   ; #langmask
  1294.   ;
  1295.   ; Results:
  1296.   ; #langmask #lang
  1297.   ;
  1298.   ; Used Vars:
  1299.   ; #i #bitmask
  1300.  
  1301.   (set #i 0)
  1302.   (set #bitmask %111111111111111111110) ; LANGUAGE
  1303.   (while (AND (< #i 20) (NOT (IN #langmask #i))) ; LANGUAGE
  1304.     (
  1305.      (set #bitmask (BITOR (shiftleft #bitmask 1) %000000000000000000001)) ; LANGUAGE
  1306.      (set #i (+ #i 1))
  1307.     )
  1308.   )
  1309.   (set #langmask (BITAND #langmask #bitmask))
  1310.   (set #lang (select #i "english" "deutsch" "français" "español" "português" "dansk" "italiano" "nederlands" "norsk" "svenska" "polski" "suomi" "magyar" "greek" "esperanto" "türkçe" "latina" "russian" "ÃeÓtina" "catalonian" "")) ; LANGUAGE
  1311.  )
  1312.  
  1313. ; --- Check procedure ---------------------------------------------------------
  1314.  
  1315.  (procedure P_CheckExists
  1316.    ; Param:
  1317.    ; #dir
  1318.    ;
  1319.    ; Results:
  1320.    ; #chk_mcc #chk_mcp #chk_demo #chk_catalogs #chk_agdocs #chk_proglang
  1321.    ; #chk_autodoc #chk_c_h #chk_c_example #chk_asm_i #chk_asm_example #chk_e_e
  1322.    ; #chk_e_example #chk_modula_def #chk_modula_mod #chk_modula_demo
  1323.    ; #chk_oberon_mod #chk_oberon_example #chk_existsmask #chk_mcc_catalogs
  1324.    ; #chk_mcp_catalogs #chk_docs #chk_progdirs #chk_asciidocs #chk_source
  1325.    ;
  1326.    ; Vars used:
  1327.    ; #i #lang
  1328.  
  1329.    ; Custom Class
  1330.    (set #chk_mcc (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcc")) (noreq)))
  1331.    (set #chk_mcp (exists (tackon (tackon #dir "Libs/MUI") (cat @app-name ".mcp")) (noreq)))
  1332.  
  1333.    ; Demo
  1334.    (set #chk_demo (exists (tackon (tackon #dir "Demos") (cat @app-name "-Demo")) (noreq)))
  1335.  
  1336.    ; Catalogs + Documentation
  1337.    (set #chk_mcc_catalogs %00000000000000000000) ; LANGUAGE
  1338.    (set #chk_mcp_catalogs %00000000000000000000) ; LANGUAGE
  1339.    (set #chk_asciidocs      %00000000000000000000) ; LANGUAGE
  1340.    (set #chk_agdocs      %00000000000000000000) ; LANGUAGE
  1341.    (set #langmask      %11111111111111111111) ; LANGUAGE
  1342.    (while (P_BitToLanguage)
  1343.      (
  1344.       ; Catalogs
  1345.       (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcc.catalog")) (noreq))
  1346.     (
  1347.      (set #chk_mcc_catalogs (BITOR #chk_mcc_catalogs %100000000000000000000)) ; LANGUAGE
  1348.      (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  1349.     )
  1350.     (set #chk_mcc_catalogs (shiftright #chk_mcc_catalogs 1))
  1351.       )
  1352.       (if (exists (tackon (tackon (tackon #dir "locale/catalogs") #lang) (cat @app-name "_mcp.catalog")) (noreq))
  1353.     (
  1354.      (set #chk_mcp_catalogs (BITOR #chk_mcp_catalogs %100000000000000000000)) ; LANGUAGE
  1355.      (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  1356.     )
  1357.     (set #chk_mcp_catalogs (shiftright #chk_mcp_catalogs 1))
  1358.       )
  1359.  
  1360.       ; Docs/ASCII
  1361.       (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.doc")) (noreq))
  1362.     (
  1363.      (set #chk_asciidocs (BITOR #chk_asciidocs %100000000000000000000)) ; LANGUAGE
  1364.      (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  1365.     )
  1366.     (set #chk_asciidocs (shiftright #chk_asciidocs 1))
  1367.       )
  1368.  
  1369.       ; Docs/AmigaGuide
  1370.       (if (exists (tackon (tackon (tackon #dir "Docs") #lang) (cat @app-name "_mcc.guide")) (noreq))
  1371.     (
  1372.      (set #chk_agdocs (BITOR #chk_agdocs %100000000000000000000)) ; LANGUAGE
  1373.      (set #chk_agdocs (shiftright #chk_agdocs 1))
  1374.     )
  1375.     (set #chk_agdocs (shiftright #chk_agdocs 1))
  1376.       )
  1377.  
  1378.      )
  1379.    )
  1380.    (set #chk_catalogs (BITOR #chk_mcc_catalogs #chk_mcp_catalogs))
  1381.    (set #chk_docs (BITOR (if #chk_asciidocs %01 %00)
  1382.              (if #chk_agdocs    %10 %00)
  1383.           )
  1384.    )
  1385.  
  1386.    ; Developer
  1387.    (set #chk_proglang %000000)
  1388.    (set #chk_progdirs %000000)
  1389.    (set #chk_autodoc (exists (tackon (tackon #dir "Developer/Autodocs") (cat "MCC_" @app-name ".doc")) (noreq)))
  1390.    ; C
  1391.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/C") (noreq)) %000001 %000000)))
  1392.    (set #chk_c_h       (exists (tackon (tackon #dir "Developer/C/Include/MUI") (cat @app-name "_mcc.h")) (noreq)))
  1393.    (set #chk_c_example (exists (tackon (tackon #dir "Developer/C/Examples") (cat @app-name "-Demo.c")) (noreq)))
  1394.    (if #chk_c_h
  1395.      (set #chk_proglang (BITOR #chk_proglang %000001))
  1396.    )
  1397.    ; C++
  1398.  
  1399.    ; Assembler
  1400.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Assembler") (noreq)) %000100 %000000)))
  1401.    (set #chk_asm_i     (exists (tackon (tackon #dir "Developer/Assembler/Include/MUI") (cat @app-name "_mcc.i")) (noreq)))
  1402.    (set #chk_asm_example (exists (tackon (tackon #dir "Developer/Assembler/Examples") (cat @app-name "-Demo.s")) (noreq)))
  1403.    (if #chk_asm_i
  1404.      (set #chk_proglang (BITOR #chk_proglang %000100))
  1405.    )
  1406.    ; Amiga-E
  1407.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Amiga-E") (noreq)) %001000 %000000)))
  1408.    (set #chk_e_e       (exists (tackon (tackon #dir "Developer/Amiga-E/Modules/MUI") (cat @app-name "_mcc.e")) (noreq)))
  1409.    (set #chk_e_example (exists (tackon (tackon #dir "Developer/Amiga-E/Examples") (cat @app-name "-Demo.e")) (noreq)))
  1410.    (if #chk_e_e
  1411.      (set #chk_proglang (BITOR #chk_proglang %001000))
  1412.    )
  1413.    ; Modula-II
  1414.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Modula") (noreq)) %010000 %000000)))
  1415.    (set #chk_modula_def  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".def")) (noreq)))
  1416.    (set #chk_modula_mod  (exists (tackon (tackon #dir "Developer/Modula/txt") (cat "MCC" @app-name ".mod")) (noreq)))
  1417.    (set #chk_modula_demo (exists (tackon (tackon #dir "Developer/Modula/Demo") (cat @app-name "Demo.mod")) (noreq)))
  1418.    (if (AND #chk_modula_def #chk_modula_mod)
  1419.      (set #chk_proglang (BITOR #chk_proglang %010000))
  1420.    )
  1421.    ; Oberon
  1422.    (set #chk_progdirs (BITOR #chk_progdirs (if (exists (tackon #dir "Developer/Oberon") (noreq)) %100000 %000000)))
  1423.    (set #chk_oberon_mod     (exists (tackon (tackon #dir "Developer/Oberon/txt") (cat "MCC" @app-name ".mod")) (noreq)))
  1424.    (set #chk_oberon_example (exists (tackon (tackon #dir "Developer/Oberon/Examples") (cat @app-name "Demo.mod")) (noreq)))
  1425.    (if #chk_oberon_mod
  1426.      (set #chk_proglang (BITOR #chk_proglang %100000))
  1427.    )
  1428.    ; Source
  1429.    (if (= (exists (tackon (tackon #dir "Developer/Source") (cat "MCC_" @app-name)) (noreq)) 2)
  1430.      (set #chk_source 1)
  1431.      (set #chk_source 0)
  1432.    )
  1433.  
  1434.    (set #chk_existsmask (BITOR
  1435.               (if #chk_mcp %000001 %000000)
  1436.               (BITOR
  1437.                 (if #chk_catalogs %000010 %000000)
  1438.                 (BITOR
  1439.                   (if #chk_docs %000100 %000000)
  1440.                   (BITOR
  1441.                 (if #chk_demo %001000 %000000)
  1442.                 (BITOR
  1443.                   (if #chk_proglang %010000 %000000)
  1444.                   (if #chk_source   %100000 %000000)
  1445.                 )
  1446.                   )
  1447.                 )
  1448.               )
  1449.             )
  1450.    )
  1451.  )
  1452.  
  1453. ; --- GetVersion procedure ----------------------------------------------------
  1454.  
  1455.  (procedure P_GetVersion
  1456.   ; Param:
  1457.   ; #file
  1458.   ;
  1459.   ; Results:
  1460.   ; #ver #rev
  1461.   ;
  1462.   ; Vars used:
  1463.   ; #vernum
  1464.  
  1465.   (set #vernum (getversion (cat #file)))
  1466.   (set #ver (/ #vernum 65536))
  1467.   (set #rev (- #vernum (* #ver 65536)))
  1468.  )
  1469.  
  1470. ; --- CompareVersions procedure -----------------------------------------------
  1471.  
  1472.  (procedure P_CompareVersions
  1473.   ; Param:
  1474.   ; #ver #rev #ver2 #rev2
  1475.   ;
  1476.   ; Results:
  1477.   ; #result
  1478.   ; -1 : #ver.#rev < #ver2.#rev2
  1479.   ;  0 : #ver.#rev = #ver2.#rev2
  1480.   ;  1 : #ver.#rev > #ver2.#rev2
  1481.   ;
  1482.   ; Used Vars:
  1483.  
  1484.   (if (< #ver #ver2)
  1485.     (set #result -1)
  1486.     (if (> #ver #ver2)
  1487.       (set #result 1)
  1488.       (if (< #rev #rev2)
  1489.     (set #result -1)
  1490.     (if (> #rev #rev2)
  1491.       (set #result 1)
  1492.       (set #result 0)
  1493.     )
  1494.       )
  1495.     )
  1496.   )
  1497.  )
  1498.  
  1499. ; --- GetOSVersion ------------------------------------------------------------
  1500.  
  1501.  (procedure P_GetOSVersion
  1502.   ; Param:
  1503.   ;
  1504.   ; Results:
  1505.   ; #os_ver #os_rev #os_str
  1506.   ;
  1507.   ; Used Vars:
  1508.   ; #file #ver #rev #vernum #i
  1509.  
  1510.   (set #file "libs:version.library")
  1511.   (P_GetVersion)
  1512.   (set #os_ver #ver)
  1513.   (set #os_rev #rev)
  1514.  
  1515.   (set #i 0)
  1516.   (while (<> #os_ver (select #i 33 34 36 37 38 39 40 #os_ver)) ; OS
  1517.     (set #i (+ #i 1))
  1518.   )
  1519.   (set #os_str (select #i "1.2" "1.3" "2.0pre" "2.0" "2.1" "3.0" "3.1" #unknown)) ; OS
  1520.  )
  1521.  
  1522. ; --- GetCPU ------------------------------------------------------------------
  1523.  
  1524.  (procedure P_GetCPUFPU
  1525.   ; Param:
  1526.   ;
  1527.   ; Results:
  1528.   ; #cpu #cpu_str
  1529.   ; -1 = unknown; 0 = 68000; 1 = 68010; 2 = 68020; 3 = 68030; 4 = 68040;
  1530.   ;          5 = 68060
  1531.   ; #fpu #fpu_str
  1532.   ; -1 = unknown; 0 = NOFPU; 1 = 68881; 2 = 68882; 3 = FPU40
  1533.   ;
  1534.   ; Used Vars:
  1535.  
  1536.   (set #cpu_str (database "cpu"))
  1537.   (set #cpu 0)
  1538.   (while (<> #cpu_str (select #cpu "68000" "68010" "68020" "68030" "68040""68060" #cpu))
  1539.     (set #cpu (+ #cpu 1))
  1540.   )
  1541.   (if (= #cpu 6)
  1542.     (
  1543.      (set #cpu -1)
  1544.      (set #cpu_str #unknown)
  1545.     )
  1546.   )
  1547.  
  1548.   (if @installer-version
  1549.     (
  1550.      (set #fpu_str (database "fpu"))
  1551.      (set #fpu 0)
  1552.      (while (<> #fpu_str (select #fpu "NOFPU" "68881" "68882" "FPU40" #fpu_str))
  1553.        (set #fpu (+ #fpu 1))
  1554.      )
  1555.      (if (= #fpu 4)
  1556.        (
  1557.     (set #fpu -1)
  1558.     (set #fpu_str #unknown)
  1559.        )
  1560.      )
  1561.     )
  1562.     (
  1563.      (set #fpu -1)
  1564.      (set #fpu_str #unknown)
  1565.     )
  1566.   )
  1567.  )
  1568.  
  1569. ; --- GetMUIVersionStr --------------------------------------------------------
  1570.  
  1571.  (procedure P_GetMuiVersionStr
  1572.   ; Params:
  1573.   ; #ver #rev
  1574.   ;
  1575.   ; Results:
  1576.   ; #str
  1577.   ;
  1578.   ; Used Vars:
  1579.   ; #i
  1580.  
  1581.   (set #i 0)
  1582.   (while (<> #ver (select #i 7 8 9 10 11 12 13 14 15 16 17 18 19 #ver)) ; MUI
  1583.     (set #i (+ #i 1))
  1584.   )
  1585.   (set #str (select #i "2.0" "2.1" "2.2" "2.3" "3.0" "3.1" "3.2" "3.3" "3.4" "3.5" "3.6" "3.7" "3.8" #unknown)) ; MUI
  1586.  )
  1587.  
  1588. ; --- GetMUIVersion -----------------------------------------------------------
  1589.  
  1590.  (procedure P_GetMUIVersion
  1591.   ; Params:
  1592.   ;
  1593.   ; Results:
  1594.   ; #mui_ver #mui_rev #mui_str
  1595.   ;
  1596.   ; Used Vars:
  1597.   ; #file #ver #rev #vernum #i
  1598.  
  1599.   (if (exists "MUI:" (noreq))
  1600.     (
  1601.      (if @installer-version
  1602.        (set #file "MUI:libs/muimaster.library")
  1603.        (set #file "MUI:MUI")
  1604.      )
  1605.      (P_GetVersion)
  1606.      (set #mui_ver #ver)
  1607.      (set #mui_rev #rev)
  1608.      (P_GetMuiVersionStr)
  1609.      (set #mui_str #str)
  1610.     )
  1611.     (
  1612.      (set #mui_ver 0)
  1613.      (set #mui_rev 0)
  1614.      (set #mui_str "")
  1615.     )
  1616.   )
  1617.  )
  1618.  
  1619. ; --- CheckAvailableCPUs ------------------------------------------------------
  1620.  
  1621.  (procedure P_CheckAvailableCPUs
  1622.   ; Params:
  1623.   ; #dir @app-name
  1624.   ;
  1625.   ; Results:
  1626.   ; #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #mcc_cpu_counter #mcp_cpu_counter
  1627.   ;
  1628.   ; Used Vars:
  1629.   ; #i #file #bitmask #filetype #f
  1630.  
  1631.   (set #mcc_cpus %000000)
  1632.   (set #mcp_cpus %000000)
  1633.   (set #mcc_fpus %000000)
  1634.   (set #mcp_fpus %000000)
  1635.   (set #mcc_cpu_counter 0)
  1636.   (set #mcp_cpu_counter 0)
  1637.   (if (OR (exists (tackon #dir (cat @app-name ".mcc")) (noreq)) (exists (tackon #dir (cat @app-name "000.mcc")) (noreq)))
  1638.     (foreach #dir (cat @app-name "(%|0(0|1|2|3|4|6)0)(%|f).mc(c|p)")
  1639.       (
  1640.        (set #i 0)
  1641.        (set #file (substr @each-name (strlen @app-name)))
  1642.        (set #filetype (substr #file (- (strlen #file) 1) 1))
  1643.        (set #file (substr #file 0 (- (strlen #file) 1)))
  1644.        (set #f (patmatch "#?f.mc" #file))
  1645.        (if #f
  1646.      (set #file (cat (substr #file 0 (- (strlen #file) 4)) ".mc"))
  1647.        )
  1648.        (set #bitmask %000001)
  1649.        (while (NOT (patmatch (select #i "(%|000).mc" "010.mc" "020.mc" "030.mc" "040.mc" "060.mc") #file))
  1650.      (
  1651.       (set #bitmask (shiftleft #bitmask 1))
  1652.       (set #i (+ #i 1))
  1653.      )
  1654.        )
  1655.        (if #f
  1656.      (if (= #filetype "c")
  1657.        (
  1658.         (set #mcc_fpus (BITOR #mcc_fpus #bitmask))
  1659.         (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1660.        )
  1661.        (
  1662.         (set #mcp_fpus (BITOR #mcp_fpus #bitmask))
  1663.         (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1664.        )
  1665.      )
  1666.      (if (= #filetype "c")
  1667.        (
  1668.         (set #mcc_cpus (BITOR #mcc_cpus #bitmask))
  1669.         (set #mcc_cpu_counter (+ #mcc_cpu_counter 1))
  1670.        )
  1671.        (
  1672.         (set #mcp_cpus (BITOR #mcp_cpus #bitmask))
  1673.         (set #mcp_cpu_counter (+ #mcp_cpu_counter 1))
  1674.        )
  1675.      )
  1676.        )
  1677.       )
  1678.     )
  1679.   )
  1680.  )
  1681.  
  1682. ; --- AskLanguages ------------------------------------------------------------
  1683.  
  1684.  (procedure P_AskLanguages
  1685.   ; Params:
  1686.   ; #prompt #langmask #defaultmask
  1687.   ;
  1688.   ; Results:
  1689.   ; #langmask
  1690.   ;
  1691.   ; Used Vars:
  1692.   ; #bitmask
  1693.  
  1694.   (set #langmask (BITAND #langmask %11111111111111111111)) ; LANGUAGE
  1695.   (if #langmask
  1696.     (
  1697.      (set #bitmask (askoptions (prompt #prompt)
  1698.                    (help #help_askoptions @askoptions-help)
  1699.                    (default (BITAND #defaultmask #langmask))
  1700.                    (choices
  1701.                  (if (IN #langmask 0)
  1702.                    (cat #prop #choice_english)
  1703.                    ("")
  1704.                  )
  1705.                  (if (IN #langmask 1)
  1706.                    (cat #prop #choice_german)
  1707.                    ("")
  1708.                  )
  1709.                  (if (IN #langmask 2)
  1710.                    (cat #prop #choice_french)
  1711.                    ("")
  1712.                  )
  1713.                  (if (IN #langmask 3)
  1714.                    (cat #prop #choice_spanish)
  1715.                    ("")
  1716.                  )
  1717.                  (if (IN #langmask 4)
  1718.                    (cat #prop #choice_portuguese)
  1719.                    ("")
  1720.                  )
  1721.                  (if (IN #langmask 5)
  1722.                    (cat #prop #choice_danish)
  1723.                    ("")
  1724.                  )
  1725.                  (if (IN #langmask 6)
  1726.                    (cat #prop #choice_italian)
  1727.                    ("")
  1728.                  )
  1729.                  (if (IN #langmask 7)
  1730.                    (cat #prop #choice_dutch)
  1731.                    ("")
  1732.                  )
  1733.                  (if (IN #langmask 8)
  1734.                    (cat #prop #choice_norwegian)
  1735.                    ("")
  1736.                  )
  1737.                  (if (IN #langmask 9)
  1738.                    (cat #prop #choice_swedish)
  1739.                    ("")
  1740.                  )
  1741.                  (if (IN #langmask 10)
  1742.                    (cat #prop #choice_polish)
  1743.                    ("")
  1744.                  )
  1745.                  (if (IN #langmask 11)
  1746.                    (cat #prop #choice_finnish)
  1747.                    ("")
  1748.                  )
  1749.                  (if (IN #langmask 12)
  1750.                    (cat #prop #choice_hungarian)
  1751.                    ("")
  1752.                  )
  1753.                  (if (IN #langmask 13)
  1754.                    (cat #prop #choice_greek)
  1755.                    ("")
  1756.                  )
  1757.                  (if (IN #langmask 14)
  1758.                    (cat #prop #choice_esperanto)
  1759.                    ("")
  1760.                  )
  1761.                  (if (IN #langmask 15)
  1762.                    (cat #prop #choice_turkish)
  1763.                    ("")
  1764.                  )
  1765.                  (if (IN #langmask 16)
  1766.                    (cat #prop #choice_latin)
  1767.                    ("")
  1768.                  )
  1769.                  (if (IN #langmask 17)
  1770.                    (cat #prop #choice_russian)
  1771.                    ("")
  1772.                  )
  1773.                  (if (IN #langmask 18)
  1774.                    (cat #prop #choice_czech)
  1775.                    ("")
  1776.                  )
  1777.                  (if (IN #langmask 19)
  1778.                    (cat #prop #choice_catalonian)
  1779.                    ("")
  1780.                  )
  1781.                  ; LANGUAGE
  1782.                    )
  1783.            )
  1784.      )
  1785.      (set #langmask (BITAND #langmask #bitmask))
  1786.     )
  1787.   )
  1788.  )
  1789.  
  1790. ; --- AskDocFormat ------------------------------------------------------------
  1791.  
  1792.  (procedure P_AskDocFormats
  1793.   ; Params:
  1794.   ; #prompt #docmask #defaultmask
  1795.   ;
  1796.   ; Results:
  1797.   ; #docmask
  1798.   ;
  1799.   ; Used Vars:
  1800.   ; #bitmask
  1801.  
  1802.   (set #docmask (BITAND #docmask %11))
  1803.   (if #docmask
  1804.     (
  1805.      (set #bitmask (askoptions (prompt #prompt)
  1806.                    (help #help_askoptions @askoptions-help)
  1807.                    (default (BITAND #defaultmask #docmask))
  1808.                    (choices
  1809.                  (if (IN #docmask 0)
  1810.                    (cat #prop "ASCII")
  1811.                    ("")
  1812.                  )
  1813.                  (if (IN #docmask 1)
  1814.                    (cat #prop "AmigaGuide®")
  1815.                    ("")
  1816.                  )
  1817.                    )
  1818.            )
  1819.      )
  1820.      (set #docmask (BITAND #docmask #bitmask))
  1821.     )
  1822.   )
  1823.  )
  1824.  
  1825. ; --- AskProgLang -------------------------------------------------------------
  1826.  
  1827.  (procedure P_AskProgLangs
  1828.   ; Params:
  1829.   ; #prompt #plangmask #defaultmask
  1830.   ;
  1831.   ; Results:
  1832.   ; #plangmask
  1833.   ;
  1834.   ; Used Vars:
  1835.   ; #bitmask
  1836.  
  1837.   (set #plangmask (BITAND #plangmask %111101))
  1838.   (if #plangmask
  1839.     (
  1840.      (set #bitmask (askoptions (prompt #prompt)
  1841.                    (help #help_askoptions @askoptions-help)
  1842.                    (default (BITAND #defaultmask #plangmask))
  1843.                    (choices
  1844.                  (if (IN #plangmask 0)
  1845.                    (cat #prop "C")
  1846.                    ("")
  1847.                  )
  1848.                  (if (IN #plangmask 1)
  1849.                    (cat #prop "C++")
  1850.                    ("")
  1851.                  )
  1852.                  (if (IN #plangmask 2)
  1853.                    (cat #prop "Assembler")
  1854.                    ("")
  1855.                  )
  1856.                  (if (IN #plangmask 3)
  1857.                    (cat #prop "Amiga-E")
  1858.                    ("")
  1859.                  )
  1860.                  (if (IN #plangmask 4)
  1861.                    (cat #prop "Modula-II")
  1862.                    ("")
  1863.                  )
  1864.                  (if (IN #plangmask 5)
  1865.                    (cat #prop "Oberon")
  1866.                    ("")
  1867.                  )
  1868.                    )
  1869.            )
  1870.      )
  1871.      (set #plangmask (BITAND #plangmask #bitmask))
  1872.     )
  1873.   )
  1874.  )
  1875.  
  1876. ; --- AskCPUFPU ---------------------------------------------------------------
  1877.  
  1878.  (procedure P_AskCPUFPU
  1879.   ; Params:
  1880.   ;
  1881.   ; Results:
  1882.   ; #cpu #cpu_str #mcc_cpu_file_extension #mcp_cpu_file_extension #src-dir
  1883.   ;
  1884.   ; Used Vars:
  1885.   ; #i #file #bitmask #filetype #f #mcc_cpus #mcp_cpus #mcc_fpus #mcp_fpus #dir
  1886.   ; #defaultcpu #mcc_cpu_counter #mcp_cpu_counter #fpu #fpu_str #cpu2
  1887.  
  1888.   (set #dir (tackon #src-dir "libs/mui"))
  1889.   (P_CheckAvailableCPUs)
  1890.   (P_GetCPUFPU)
  1891.   (set #defaultcpu -1)
  1892.   (while (AND (>= #cpu 0) (= #defaultcpu -1))
  1893.     (
  1894.      (if (AND #fpu (IN #mcc_fpus #cpu))
  1895.        (set #defaultcpu (select #cpu -1 -1 3 5 7 -1))
  1896.        (if (IN #mcc_cpus #cpu)
  1897.      (set #defaultcpu (select #cpu 0 1 2 4 6 8))
  1898.        )
  1899.      )
  1900.      (set #cpu (- #cpu 1))
  1901.     )
  1902.   )
  1903.   ;(if (= #defaultcpu -1)
  1904.   ;  (abort #abort_nocpu)
  1905.   ;)
  1906.  
  1907.   (if (AND (> #mcc_cpu_counter 1) (= @user-level 2))
  1908.     (
  1909.      (set #cpu (askchoice (prompt #prompt_askcpufpu)
  1910.               (help #help_askchoice @askchoice-help)
  1911.               (default #defaultcpu)
  1912.               (choices
  1913.                 (if (IN #mcc_cpus 0)
  1914.                   (cat #prop "68000")
  1915.                   ("")
  1916.                 )
  1917.                 (if (IN #mcc_cpus 1)
  1918.                   (cat #prop "68010")
  1919.                   ("")
  1920.                 )
  1921.                 (if (IN #mcc_cpus 2)
  1922.                   (cat #prop "68020")
  1923.                   ("")
  1924.                 )
  1925.                 (if (IN #mcc_fpus 2)
  1926.                   (cat #prop "68020+fpu")
  1927.                   ("")
  1928.                 )
  1929.                 (if (IN #mcc_cpus 3)
  1930.                   (cat #prop "68030")
  1931.                   ("")
  1932.                 )
  1933.                 (if (IN #mcc_fpus 3)
  1934.                   (cat #prop "68030+fpu")
  1935.                   ("")
  1936.                 )
  1937.                 (if (IN #mcc_cpus 4)
  1938.                   (cat #prop "68040")
  1939.                   ("")
  1940.                 )
  1941.                 (if (IN #mcc_fpus 4)
  1942.                   (cat #prop "68040+fpu")
  1943.                   ("")
  1944.                 )
  1945.                 (if (IN #mcc_cpus 5)
  1946.                   (cat #prop "68060")
  1947.                   ("")
  1948.                 )
  1949.               )
  1950.            )
  1951.      )
  1952.     )
  1953.     (set #cpu #defaultcpu)
  1954.   )
  1955.   (if (<> #cpu -1)
  1956.     (
  1957.      ; select lower cpu if not available
  1958.      (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  1959.      (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  1960.      (while (NOT (OR (AND #fpu2 (AND #fpu (IN #mcc_fpus #cpu2))) (AND (NOT #fpu2) (IN #mcc_cpus #cpu2))))
  1961.        (
  1962.     (set #cpu (- #cpu 1))
  1963.     (set #cpu2 (select #cpu 0 1 2 2 3 3 4 4 5))
  1964.     (set #fpu2 (select #cpu 0 0 0 1 0 1 0 1 0))
  1965.        )
  1966.      )
  1967.  
  1968.      (set #cpu_str (select #cpu "68000" "68010" "68020" "68020+fpu" "68030" "68030+fpu" "68040" "68040+fpu" "68060"))
  1969.      (set #mcc_cpu_file_extension (select #cpu (if (exists (cat #dir "/" @app-name "000.mcc") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  1970.      (set #cpu #cpu2)
  1971.     )
  1972.     (
  1973.      (set #cpu2 -1)
  1974.      (set #fpu2 0)
  1975.      (set #cpu_str "")
  1976.      (set #mcc_cpu_file_extension "")
  1977.     )
  1978.   )
  1979.   ; set same or next lower cpu for .mcp
  1980.   (set #defaultcpu -1)
  1981.   (while (AND (>= #cpu2 0) (= #defaultcpu -1))
  1982.     (
  1983.      (if (AND #fpu (IN #mcp_fpus #cpu2))
  1984.        (set #defaultcpu (select #cpu2 -1 -1 3 5 7 -1))
  1985.        (if (IN #mcp_cpus #cpu2)
  1986.      (set #defaultcpu (select #cpu2 0 1 2 4 6 8))
  1987.        )
  1988.      )
  1989.      (set #cpu2 (- #cpu2 1))
  1990.     )
  1991.   )
  1992.   (if (= #defaultcpu -1)
  1993.     (set #mcp_cpu_file_extension "")
  1994.     (set #mcp_cpu_file_extension (select #defaultcpu (if (exists (cat #dir "/" @app-name "000.mcp") (noreq)) ("000") ("")) "010" "020" "020f" "030" "030f" "040" "040f" "060"))
  1995.   )
  1996.  )
  1997.  
  1998. ; --- AskParts ----------------------------------------------------------------
  1999.  
  2000.  (procedure P_AskParts
  2001.   ; Params:
  2002.   ; #prompt #defaultmask #existsmask
  2003.   ;
  2004.   ; Results:
  2005.   ; #parts
  2006.   ;
  2007.   ; Used Vars:
  2008.  
  2009.   (set #existsmask (if (= @user-level 2)
  2010.              #existsmask
  2011.              (BITAND #existsmask %001111)
  2012.            )
  2013.   )
  2014.   (if #existsmask
  2015.     (
  2016.      (set #parts (askoptions (prompt #prompt)
  2017.                  (help #help_askoptions @askoptions-help)
  2018.                  (default (BITAND #defaultmask #existsmask))
  2019.                  (choices
  2020.                 (if (IN #existsmask 0)
  2021.                   (cat @app-name ".mcp")
  2022.                   ("")
  2023.                 )
  2024.                 (if (IN #existsmask 1)
  2025.                   (cat #prop #choice_catalogs)
  2026.                   ("")
  2027.                 )
  2028.                 (if (IN #existsmask 2)
  2029.                   (cat #prop #choice_docs)
  2030.                   ("")
  2031.                 )
  2032.                 (if (IN #existsmask 3)
  2033.                   (cat #prop @app-name "-Demo")
  2034.                   ("")
  2035.                 )
  2036.                 (if (IN #existsmask 4)
  2037.                   (cat #prop #choice_developer)
  2038.                   ("")
  2039.                 )
  2040.                 (if (IN #existsmask 5)
  2041.                   (cat #prop #choice_source)
  2042.                   ("")
  2043.                 )
  2044.                  )
  2045.          )
  2046.      )
  2047.      (set #parts (BITAND #parts #existsmask))
  2048.     )
  2049.     (set #parts 0)
  2050.   )
  2051.  )
  2052.  
  2053. ; --- DelEmptyDir -------------------------------------------------------------
  2054.  
  2055.  
  2056.  (procedure P_DelEmptyDir
  2057.   ; Params:
  2058.   ; #dir
  2059.   ;
  2060.   ; Results:
  2061.   ;
  2062.   ; Used Vars:
  2063.   ; #i
  2064.  
  2065.   (set #i 0)
  2066.   (if (exists #dir (noreq))
  2067.     (
  2068.      (foreach #dir "#?"
  2069.        (set #i (+ #i 1))
  2070.      )
  2071.      (if (NOT #i)
  2072.        (
  2073.     (delete #dir (optional "force"))
  2074.     (delete (cat #dir ".info") (optional "force"))
  2075.        )
  2076.      )
  2077.     )
  2078.   )
  2079.  )
  2080.  
  2081. ; --- DelDirRecursiv ----------------------------------------------------------
  2082.  
  2083.  (procedure P_DelDirRecursive
  2084.   ; Params:
  2085.   ; #dir
  2086.   ;
  2087.   ; Results:
  2088.   ;
  2089.   ; Used Vars:
  2090.   ;
  2091.  
  2092.   (foreach #dir "#?"
  2093.     (if (< @each-type 0)
  2094.       (delete (tackon #dir @each-name) (optional "force"))
  2095.       (
  2096.        (set #dir (tackon #dir @each-name))
  2097.        (P_DelDirRecursive)
  2098.        (set #dir (pathonly #dir))
  2099.       )
  2100.     )
  2101.   )
  2102.   (delete #dir (optional "force"))
  2103.   (delete (cat #dir ".info") (optional "force"))
  2104.  )
  2105.  
  2106. ; --- DeleteLanguages ---------------------------------------------------------
  2107.  
  2108.  (procedure P_DeleteLanguages
  2109.   ; Params:
  2110.   ; #dir #file #langmask
  2111.   ;
  2112.   ; Results:
  2113.   ;
  2114.   ; Used Vars:
  2115.   ; #i
  2116.  
  2117.   (while (P_BitToLanguage)
  2118.     (
  2119.      (delete (tackon (tackon #dir #lang) #file) (optional "force"))
  2120.      (delete (tackon (tackon #dir #lang) (cat #file ".info")) (optional "force"))
  2121.      (set #i 0)
  2122.      (foreach (tackon #dir #lang) "#?"
  2123.        (set #i (+ #i 1))
  2124.      )
  2125.      (if (NOT #i)
  2126.        (
  2127.     (delete (tackon #dir #lang) (optional "force"))
  2128.     (delete (tackon #dir (cat #lang ".info")) (optional "force"))
  2129.        )
  2130.      )
  2131.     )
  2132.   )
  2133.  )
  2134.  
  2135. ; --- MkDirInfo ---------------------------------------------------------------
  2136.  
  2137.  (procedure P_MkDirInfo
  2138.   ; Params:
  2139.   ; #dir #infos #dest-dir
  2140.   ;
  2141.   ; Results:
  2142.   ;
  2143.   ; Used Vars:
  2144.  
  2145.   (if (NOT (exists (tackon #dest-dir #dir) (noreq)))
  2146.     (if #infos
  2147.       (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (infos) (confirm "expert"))
  2148.       (makedir (tackon #dest-dir #dir) (prompt #prompt_makedir "\n\n" (tackon #dest-dir #dir)) (help @makedir-help) (confirm "expert"))
  2149.     )
  2150.   )
  2151.  )
  2152.  
  2153. ; --- CpFile ------------------------------------------------------------------
  2154.  
  2155.  (procedure P_CpFile
  2156.   ; Params:
  2157.   ; #dir #file #infos #dest-dir #src-dir
  2158.   ;
  2159.   ; Results:
  2160.   ;
  2161.   ; Used Vars:
  2162.  
  2163.   (if #infos
  2164.     (copyfiles (prompt #prompt_copy)
  2165.            (help @copyfiles-help)
  2166.            (source (tackon (tackon #src-dir #dir) #file))
  2167.            (dest (tackon #dest-dir #dir))
  2168.            (files)
  2169.            (infos)
  2170.            (optional "nofail" "force")
  2171.            (confirm "expert")
  2172.     )
  2173.     (copyfiles (prompt #prompt_copy)
  2174.            (help @copyfiles-help)
  2175.            (source (tackon (tackon #src-dir #dir) #file))
  2176.            (dest (tackon #dest-dir #dir))
  2177.            (files)
  2178.            (optional "nofail" "force")
  2179.            (confirm "expert")
  2180.     )
  2181.   )
  2182.  )
  2183.  
  2184. ; --- Install -----------------------------------------------------------------
  2185.  
  2186.  (procedure P_Install
  2187.   ; Params:
  2188.   ; #chk_mcp #chk_demo #chk_mcc_catalogs #chk_mcp_catalogs #chk_docs
  2189.   ; #chk_asciidocs #chk_agdocs #chk_proglang #chk_progdirs #chk_autodoc
  2190.   ; #old_mcp #old_demo #old_mcc_catalogs #old_mcp_catalogs #old_docs
  2191.   ; #old_asciidocs #old_agdocs #old_proglang #old_progdirs #old_autodoc
  2192.   ; #update #mcp_cpu_counter #chk_source #chk_existsmask #src-dir #dest-dir
  2193.   ;
  2194.   ; Results:
  2195.   ;
  2196.   ; Used Vars:
  2197.   ; #dir #file #result #update #defaultmask
  2198.   ; #parts #prompt #langmask #install_mcc_catalogs #install_mcp_catalogs
  2199.   ; #docmask #install_docs #install_asciidocs #install_agdocs #install_demo
  2200.   ; #plangmask #install_proglang #infos #existsmask
  2201.  
  2202.   ; Update existing version or install newer one
  2203.  
  2204.   (if (= #update 1)
  2205.     (
  2206.      (set #prompt #prompt_update)
  2207.      (set #existsmask (BITAND #chk_existsmask (BITOR (BITOR (if (AND (NOT #old_demo) #chk_demo) %011110 %010110)
  2208.                                 (if (AND (NOT #old_mcp) #chk_mcp) %010111 %010110)
  2209.                              )
  2210.                              (if (AND (NOT #old_source) #chk_source) %110110 %010110)
  2211.                           )
  2212.               )
  2213.      )
  2214.      (set #defaultmask %000000)
  2215.      (P_AskParts)
  2216.     )
  2217.   )
  2218.  
  2219.   ; (P_AskCPUFPU)
  2220.   (if (OR (NOT #update) (AND #update (IN #parts 0)))
  2221.     (P_AskCPUFPU)
  2222.   )
  2223.  
  2224.   ; mcc (P_AskLanguages)
  2225.   (if (OR (NOT #update) (AND #update (IN #parts 1)))
  2226.     (
  2227.      (set #prompt #prompt_install_mcc_catalogs)
  2228.      (set #langmask (if #update (BITAND #chk_mcc_catalogs (BITNOT #old_mcc_catalogs)) #chk_mcc_catalogs))
  2229.      (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcc_catalogs)) (BITOR #language_default #old_mcc_catalogs)))
  2230.      (P_AskLanguages)
  2231.      (set #install_mcc_catalogs #langmask)
  2232.     )
  2233.     (set #install_mcc_catalogs 0)
  2234.   )
  2235.  
  2236.   ; mcp (P_AskLanguages)
  2237.   (if (OR (NOT #update) (AND #update (OR (IN #parts 1) (IN #parts 0))))
  2238.     (
  2239.      (set #prompt #prompt_install_mcp_catalogs)
  2240.      (set #langmask (if #update (BITAND #chk_mcp_catalogs (BITNOT #old_mcp_catalogs)) #chk_mcp_catalogs))
  2241.      (set #defaultmask (if #update (BITAND #language_default (BITNOT #old_mcp_catalogs)) (BITOR #language_default #old_mcp_catalogs)))
  2242.      (P_AskLanguages)
  2243.      (set #install_mcp_catalogs #langmask)
  2244.     )
  2245.     (set #install_mcp_catalogs 0)
  2246.   )
  2247.  
  2248.   ; (P_AskDocFormats)
  2249.   (if (OR (NOT #update) (AND #update (IN #parts 2)))
  2250.     (
  2251.      (set #prompt #prompt_install_docs)
  2252.      (set #docmask (if #update
  2253.              (BITOR
  2254.                (if (<> (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) 0)
  2255.              %01
  2256.              %00
  2257.                )
  2258.                (if (<> (BITAND #chk_agdocs (BITNOT #old_agdocs)) 0)
  2259.              %10
  2260.              %00
  2261.                )
  2262.              )
  2263.              #chk_docs
  2264.            )
  2265.      )
  2266.      (set #defaultmask (if #update (BITAND %11 (BITNOT #old_docs)) (if (IN #docmask 1) %10 %01)))
  2267.      (P_AskDocFormats)
  2268.      (set #install_docs #docmask)
  2269.     )
  2270.     (set #install_docs 0)
  2271.   )
  2272.  
  2273.   ; asciidocs (P_AskLanguages)
  2274.   (if (IN #install_docs 0)
  2275.     (
  2276.      (set #prompt #prompt_install_asciidocs)
  2277.      (set #langmask (if #update (BITAND #chk_asciidocs (BITNOT #old_asciidocs)) #chk_asciidocs))
  2278.      (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_asciidocs) %11111111111111111111))) ; LANGUAGE
  2279.      (P_AskLanguages)
  2280.      (set #install_asciidocs #langmask)
  2281.     )
  2282.     (set #install_asciidocs 0)
  2283.   )
  2284.  
  2285.   ; agdocs (P_AskLanguages)
  2286.   (if (IN #install_docs 1)
  2287.     (
  2288.      (set #prompt #prompt_install_agdocs)
  2289.      (set #langmask (if #update (BITAND #chk_agdocs (BITNOT #old_agdocs)) #chk_agdocs))
  2290.      (set #defaultmask (BITAND (if (= (BITAND #language_default #langmask) 0) %00000000000000000001 #language_default) (if #update (BITNOT #old_agdocs) %11111111111111111111))) ; LANGUAGE
  2291.      (P_AskLanguages)
  2292.      (set #install_agdocs #langmask)
  2293.     )
  2294.     (set #install_agdocs 0)
  2295.   )
  2296.  
  2297.   ; demo
  2298.   (if (AND #chk_demo (NOT #update))
  2299.     (set #install_demo (askbool (prompt #prompt_install_demo)
  2300.                 (help #help_install_demo)
  2301.                 (default 0)
  2302.                )
  2303.     )
  2304.     (if (AND #update (IN #parts 3))
  2305.       (set #install_demo 1)
  2306.       (set #install_demo 0)
  2307.     )
  2308.   )
  2309.  
  2310.   ; (P_AskProgLangs)
  2311.   (if (OR (AND (NOT #update) (= @user-level 2)) (AND #update (IN #parts 4)))
  2312.     (
  2313.      (set #prompt #prompt_install_plangs)
  2314.      (set #plangmask (if #update (BITAND #chk_proglang (BITNOT #old_proglang)) #chk_proglang))
  2315.      (set #defaultmask #old_progdirs)
  2316.      (P_AskProgLangs)
  2317.      (set #install_proglang #plangmask)
  2318.     )
  2319.     (set #install_proglang 0)
  2320.   )
  2321.  
  2322.   ; Source
  2323.   (if (AND #chk_source (NOT #update) (= @user-level 2) #install_proglang)
  2324.     (set #install_source (askbool (prompt #prompt_install_source)
  2325.                   (help #help_install_source)
  2326.                   (default 0)
  2327.              )
  2328.     )
  2329.     (if (AND #update (IN #parts 5))
  2330.       (set #install_source 1)
  2331.       (set #install_source 0)
  2332.     )
  2333.   )
  2334.  
  2335.   (complete 0)
  2336.  
  2337.   ; mcc
  2338.   (if (AND (> #mcc_cpu_counter 0) (NOT #update))
  2339.     (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcc_cpu_file_extension ".mcc")
  2340.            (help @copylib-help)
  2341.            (confirm "expert")
  2342.            (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcc_cpu_file_extension ".mcc")))
  2343.            (dest (tackon #dest-dir "libs/mui"))
  2344.            (newname (cat @app-name ".mcc"))
  2345.            (optional "oknodelete" "force")
  2346.     )
  2347.   )
  2348.   (complete 7)
  2349.  
  2350.   ; mcp
  2351.   (if (AND (> #mcp_cpu_counter 0) (OR (NOT #update) (AND #update (IN #parts 0))))
  2352.     (copyfiles (prompt #prompt_copy "\n\n" @app-name #mcp_cpu_file_extension ".mcp")
  2353.            (help @copylib-help)
  2354.            (confirm "expert")
  2355.            (source (tackon (tackon #src-dir "libs/mui") (cat @app-name #mcp_cpu_file_extension ".mcp")))
  2356.            (dest (tackon #dest-dir "libs/mui"))
  2357.            (newname (cat @app-name ".mcp"))
  2358.            (optional "oknodelete" "force")
  2359.     )
  2360.   )
  2361.   (complete 13)
  2362.  
  2363.   ; mcc catalogs
  2364.   (if #install_mcc_catalogs
  2365.     (
  2366.      (set #infos 1)
  2367.      (set #dir "Locale")
  2368.      (P_MkDirInfo)
  2369.      (set #dir "Locale/Catalogs")
  2370.      (P_MkDirInfo)
  2371.      (set #infos 0)
  2372.      (set #langmask #install_mcc_catalogs)
  2373.      (while #langmask
  2374.        (
  2375.     (P_BitToLanguage)
  2376.     (set #dir (tackon "Locale/Catalogs" #lang))
  2377.     (P_MkDirInfo)
  2378.     (set #file (cat @app-name "_mcc.catalog"))
  2379.     (P_CpFile)
  2380.        )
  2381.      )
  2382.     )
  2383.   )
  2384.   (complete 20)
  2385.  
  2386.   ; mcp catalogs
  2387.   (if #install_mcp_catalogs
  2388.     (
  2389.      (set #infos 1)
  2390.      (set #dir "Locale")
  2391.      (P_MkDirInfo)
  2392.      (set #dir "Locale/Catalogs")
  2393.      (P_MkDirInfo)
  2394.      (set #infos 0)
  2395.      (set #langmask #install_mcp_catalogs)
  2396.      (while #langmask
  2397.        (
  2398.     (P_BitToLanguage)
  2399.     (set #dir (cat "Locale/Catalogs/" #lang))
  2400.     (P_MkDirInfo)
  2401.     (set #file (cat @app-name "_mcp.catalog"))
  2402.     (P_CpFile)
  2403.        )
  2404.      )
  2405.     )
  2406.   )
  2407.   (complete 27)
  2408.  
  2409.   ; asciidocs
  2410.   (if #install_asciidocs
  2411.     (
  2412.      (set #infos 1)
  2413.      (set #dir "Docs")
  2414.      (P_MkDirInfo)
  2415.      (set #langmask #install_asciidocs)
  2416.      (while #langmask
  2417.        (
  2418.     (P_BitToLanguage)
  2419.     (set #dir (tackon "Docs" #lang))
  2420.     (P_MkDirInfo)
  2421.     (set #file (cat @app-name "_mcc.doc"))
  2422.     (P_CpFile)
  2423.        )
  2424.      )
  2425.     )
  2426.   )
  2427.  
  2428.   ; agdocs
  2429.   (if #install_agdocs
  2430.     (
  2431.      (P_GetOSVersion)
  2432.      (set #wrapguide (exists "C/WarpGuide"))
  2433.      (set #infos 1)
  2434.      (set #dir "Docs")
  2435.      (P_MkDirInfo)
  2436.      (set #langmask #install_agdocs)
  2437.      (while #langmask
  2438.        (
  2439.     (P_BitToLanguage)
  2440.     (set #dir (tackon "Docs" #lang))
  2441.     (P_MkDirInfo)
  2442.     (set #file (cat @app-name "_mcc.guide"))
  2443.     (if (AND #wrapguide (< #os_ver 39))
  2444.       (run ("stack 50000\nC/WrapGuide %s 65" (cat #dir "/" #file)))
  2445.     )
  2446.     (P_CpFile)
  2447.        )
  2448.      )
  2449.     )
  2450.   )
  2451.   (complete 33)
  2452.  
  2453.   ; demo
  2454.   (if #install_demo
  2455.     (
  2456.      (set #infos 1)
  2457.      (set #dir "Demos")
  2458.      (P_MkDirInfo)
  2459.      (set #file (cat @app-name "-Demo"))
  2460.      (P_CpFile)
  2461.     )
  2462.   )
  2463.   (complete 40)
  2464.  
  2465.   (if #install_proglang
  2466.     (
  2467.      (set #infos 1)
  2468.      (set #dir "Developer")
  2469.      (P_MkDirInfo)
  2470.  
  2471.      ; Autodoc
  2472.      (if (AND #chk_autodoc (OR (NOT #update) (AND #update (NOT #old_autodoc))))
  2473.        (
  2474.     (set #dir "Developer/Autodocs")
  2475.     (P_MkDirInfo)
  2476.     (set #infos 0)
  2477.     (set #file (cat "MCC_" @app-name ".doc"))
  2478.     (P_CpFile)
  2479.        )
  2480.      )
  2481.      (complete 57)
  2482.  
  2483.      ; C
  2484.      (if (IN #install_proglang 0)
  2485.        (
  2486.     (set #infos 1)
  2487.     (set #dir "Developer/C")
  2488.     (P_MkDirInfo)
  2489.     (set #infos 0)
  2490.     (set #dir "Developer/C/Include")
  2491.     (P_MkDirInfo)
  2492.     (set #dir "Developer/C/Include/MUI")
  2493.     (P_MkDirInfo)
  2494.     (set #file (cat @app-name "_mcc.h"))
  2495.     (P_CpFile)
  2496.     (if #chk_c_example
  2497.       (
  2498.        (set #dir "Developer/C/Examples")
  2499.        (P_MkDirInfo)
  2500.        (set #file (cat @app-name "-Demo.c"))
  2501.        (P_CpFile)
  2502.       )
  2503.     )
  2504.        )
  2505.      )
  2506.      (complete 53)
  2507.  
  2508.      ; C++
  2509.      (complete 60)
  2510.  
  2511.      ; Asm
  2512.      (if (IN #install_proglang 2)
  2513.        (
  2514.     (set #infos 1)
  2515.     (set #dir "Developer/Assembler")
  2516.     (P_MkDirInfo)
  2517.     (set #infos 0)
  2518.     (set #dir "Developer/Assembler/Include")
  2519.     (P_MkDirInfo)
  2520.     (set #dir "Developer/Assembler/Include/MUI")
  2521.     (P_MkDirInfo)
  2522.     (set #file (cat @app-name "_mcc.i"))
  2523.     (P_CpFile)
  2524.     (if #chk_asm_example
  2525.       (
  2526.        (set #dir "Developer/Assembler/Examples")
  2527.        (P_MkDirInfo)
  2528.        (set #file (cat @app-name "-Demo.s"))
  2529.        (P_CpFile)
  2530.       )
  2531.     )
  2532.        )
  2533.      )
  2534.      (complete 67)
  2535.  
  2536.      ; Amiga-E
  2537.      (if (IN #install_proglang 3)
  2538.        (
  2539.     (set #infos 1)
  2540.     (set #dir "Developer/Amiga-E")
  2541.     (P_MkDirInfo)
  2542.     (set #infos 0)
  2543.     (set #dir "Developer/Amiga-E/Modules")
  2544.     (P_MkDirInfo)
  2545.     (set #dir "Developer/Amiga-E/Modules/MUI")
  2546.     (P_MkDirInfo)
  2547.     (set #file (cat @app-name "_mcc.e"))
  2548.     (P_CpFile)
  2549.     (if #chk_e_example
  2550.       (
  2551.        (set #dir "Developer/Amiga-E/Examples")
  2552.        (P_MkDirInfo)
  2553.        (set #file (cat @app-name "-Demo.e"))
  2554.        (P_CpFile)
  2555.       )
  2556.     )
  2557.        )
  2558.      )
  2559.      (complete 73)
  2560.  
  2561.      ; Modula-II
  2562.      (if (IN #install_proglang 4)
  2563.        (
  2564.     (set #infos 1)
  2565.     (set #dir "Developer/Modula")
  2566.     (P_MkDirInfo)
  2567.     (set #infos 0)
  2568.     (set #dir "Developer/Modula/txt")
  2569.     (P_MkDirInfo)
  2570.     (set #file (cat "MCC" @app-name ".def"))
  2571.     (P_CpFile)
  2572.     (set #file (cat "MCC" @app-name ".mod"))
  2573.     (P_CpFile)
  2574.     (if #chk_modula_demo
  2575.       (
  2576.        (set #dir "Developer/Modula/Demo")
  2577.        (P_MkDirInfo)
  2578.        (set #file (cat @app-name "Demo.mod"))
  2579.        (P_CpFile)
  2580.       )
  2581.     )
  2582.        )
  2583.      )
  2584.      (complete 80)
  2585.  
  2586.      ; Oberon
  2587.      (if (IN #install_proglang 5)
  2588.        (
  2589.     (set #infos 1)
  2590.     (set #dir "Developer/Oberon")
  2591.     (P_MkDirInfo)
  2592.     (set #infos 0)
  2593.     (set #dir "Developer/Oberon/txt")
  2594.     (P_MkDirInfo)
  2595.     (set #file (cat "MCC" @app-name ".mod"))
  2596.     (P_CpFile)
  2597.     (if #chk_oberon_example
  2598.       (
  2599.        (set #dir "Developer/Oberon/Examples")
  2600.        (P_MkDirInfo)
  2601.        (set #file (cat @app-name "Demo.mod"))
  2602.        (P_CpFile)
  2603.       )
  2604.     )
  2605.        )
  2606.      )
  2607.      (complete 87)
  2608.  
  2609.     )
  2610.   )
  2611.  
  2612.   (if #install_source
  2613.     (
  2614.      (set #infos 1)
  2615.      (set #dir "Developer/Source")
  2616.      (P_MkDirInfo)
  2617.      (set #infos 1)
  2618.      (set #dir (tackon #dir (cat "MCC_" @app-name)))
  2619.      (P_MkDirInfo)
  2620.      (copyfiles (prompt #prompt_copy)
  2621.         (help @copyfiles-help)
  2622.         (source (tackon #src-dir #dir))
  2623.         (dest (tackon #dest-dir #dir))
  2624.         (all)
  2625.         (optional "nofail" "force")
  2626.         (confirm "expert")
  2627.      )
  2628.     )
  2629.   )
  2630.   (complete 93)
  2631.  
  2632.   (P_CustomInstall)
  2633.   (complete 100)
  2634.  )
  2635.  
  2636. ; --- Uninstall ---------------------------------------------------------------
  2637.  
  2638.  (procedure P_Uninstall
  2639.   ; Params:
  2640.   ; #old_mcc_catalogs #old_docs #old_proglang #old_mcc #old_mcp
  2641.   ; #old_catalogs #old_mcp_catalogs #old_asciidocs #old_agdocs #old_demo
  2642.   ; #old_c_h #old_c_example #old_asm_i #old_asm_example #old_e_e #old_e_example
  2643.   ; #old_modula_def #old_modula_mod #old_modula_demo #old_oberon_mod
  2644.   ; #old_oberon_example #old_autodoc #old_source #old_existsmask #dest-dir
  2645.   ;
  2646.   ; Results:
  2647.   ;
  2648.   ; Used Vars:
  2649.   ; #all #prompt #parts #defaultmask #langmask #uninstall_mcc_catalogs
  2650.   ; #uninstall_mcp_catalogs #docmask #uninstall_asciidocs #uninstall_agdocs
  2651.   ; #plangmask #uninstall_proglang #dir #file #existsmask
  2652.  
  2653.   (set #existsmask #old_existsmask)
  2654.   (set #all (askbool (prompt #prompt_uninstall_all)
  2655.              (help #help_uninstall_all)
  2656.              (default 1)
  2657.         )
  2658.   )
  2659.   (if (NOT #all)
  2660.     (
  2661.      (set #prompt #prompt_uninstall_parts)
  2662.      (set #defaultmask %000000)
  2663.      (P_AskParts)
  2664.      (if (IN #parts 1)
  2665.        (
  2666.     (set #prompt #prompt_uninstall_mcc_catalogs)
  2667.     (set #langmask #old_mcc_catalogs)
  2668.     (set #defaultmask %00000000000000000000) ; LANGUAGE
  2669.     (P_AskLanguages)
  2670.     (set #uninstall_mcc_catalogs #langmask)
  2671.     (if (NOT (IN #parts 0))
  2672.       (
  2673.        (set #prompt #prompt_uninstall_mcp_catalogs)
  2674.        (set #langmask #old_mcp_catalogs)
  2675.        (set #defaultmask %00000000000000000000) ; LANGUAGE
  2676.        (P_AskLanguages)
  2677.        (set #uninstall_mcp_catalogs #langmask)
  2678.       )
  2679.     )
  2680.        )
  2681.      )
  2682.      (if (IN #parts 2)
  2683.        (
  2684.     (set #prompt #prompt_uninstall_docs)
  2685.     (set #docmask #old_docs)
  2686.     (set #defaultmask %00)
  2687.     (P_AskDocFormats)
  2688.     (set #uninstall_asciidocs 0)
  2689.     (set #uninstall_agdocs 0)
  2690.  
  2691.     (if (IN #docmask 0) ; ASCII
  2692.       (
  2693.        (set #promp #prompt_uninstall_asciidocs)
  2694.        (set #langmask #old_asciidocs)
  2695.        (set #defaultmask %00000000000000000000) ; LANGUAGE
  2696.        (P_AskLanguages)
  2697.        (set #uninstall_asciidocs #langmask)
  2698.       )
  2699.     )
  2700.     (if (IN #docmask 1) ; AmigGuide
  2701.       (
  2702.        (set #promp #prompt_uninstall_agdocs)
  2703.        (set #langmask #old_agdocs)
  2704.        (set #defaultmask %00000000000000000000) ; LANGUAGE
  2705.        (P_AskLanguages)
  2706.        (set #uninstall_agdocs #langmask)
  2707.       )
  2708.     )
  2709.  
  2710.        )
  2711.      )
  2712.      (if (IN #parts 4)
  2713.        (
  2714.     (set #prompt #prompt_uninstall_plangs)
  2715.     (set #plangmask #old_proglang)
  2716.     (set #defaultmask %000000)
  2717.     (P_AskProgLangs)
  2718.     (set #uninstall_proglang #plangmask)
  2719.        )
  2720.      )
  2721.     )
  2722.   )
  2723.   (complete 0)
  2724.  
  2725.   ; mcc
  2726.   (if (AND #old_mcc #all)
  2727.     (delete (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")) (optional "force"))
  2728.   )
  2729.   (complete 7)
  2730.  
  2731.   ; mcp -> related catalogs
  2732.   (if (OR #all (IN #parts 0))
  2733.     (
  2734.      (if #old_mcp
  2735.        (delete (tackon (tackon #dest-dir "libs/mui/") (cat @app-name ".mcp")) (optional "force"))
  2736.      )
  2737.      (set #parts (BITOR #parts %00010))
  2738.      (set #uninstall_mcp_catalogs #old_mcp_catalogs)
  2739.     )
  2740.   )
  2741.   (complete 14)
  2742.  
  2743.   ; Catalogs
  2744.   (if (AND #old_catalogs (OR #all (IN #parts 1)))
  2745.     (
  2746.      (if #old_mcc_catalogs
  2747.        (
  2748.     (set #dir (tackon #dest-dir "Locale/Catalogs"))
  2749.     (set #file (cat @app-name "_mcc.catalog"))
  2750.     (set #langmask (if #all #old_mcc_catalogs #uninstall_mcc_catalogs))
  2751.     (P_DeleteLanguages)
  2752.        )
  2753.      )
  2754.      (if #old_mcp_catalogs
  2755.        (
  2756.     (set #dir (tackon #dest-dir "Locale/Catalogs"))
  2757.     (set #file (cat @app-name "_mcp.catalog"))
  2758.     (set #langmask #uninstall_mcp_catalogs)
  2759.     (P_DeleteLanguages)
  2760.        )
  2761.      )
  2762.     )
  2763.   )
  2764.   (complete 21)
  2765.  
  2766.   ; Docs
  2767.   (if (OR #all (IN #parts 2))
  2768.     (
  2769.      ; ASCII
  2770.      (if #old_asciidocs
  2771.        (
  2772.     (set #dir (tackon #dest-dir "Docs"))
  2773.     (set #file (cat @app-name "_mcc.doc"))
  2774.     (set #langmask (if #all #old_asciidocs #uninstall_asciidocs))
  2775.     (P_DeleteLanguages)
  2776.        )
  2777.      )
  2778.  
  2779.      ; AmigaGuide
  2780.      (if #old_agdocs
  2781.        (
  2782.     (set #dir (tackon #dest-dir "Docs"))
  2783.     (set #file (cat @app-name "_mcc.guide"))
  2784.     (set #langmask (if #all #old_agdocs #uninstall_agdocs))
  2785.     (P_DeleteLanguages)
  2786.        )
  2787.      )
  2788.  
  2789.     )
  2790.   )
  2791.   (complete 29)
  2792.  
  2793.   ; Demo
  2794.   (if (AND #old_demo (OR #all (IN #parts 3)))
  2795.     (
  2796.      (set #dir (tackon #dest-dir "Demos"))
  2797.      (delete (tackon #dir (cat @app-name "-Demo")) (optional "force"))
  2798.      (delete (tackon #dir (cat @app-name "-Demo.info")) (optional "force"))
  2799.      (P_DelEmptyDir)
  2800.     )
  2801.   )
  2802.   (complete 36)
  2803.  
  2804.   ; Developer
  2805.   (if (AND #old_proglang (OR #all (IN #parts 4)))
  2806.     (
  2807.  
  2808.      ; C
  2809.      (if (OR #all (IN #uninstall_proglang 0))
  2810.        (
  2811.     (if #old_c_h
  2812.       (
  2813.        (set #dir (tackon #dest-dir "Developer/C/Include/MUI"))
  2814.        (delete (tackon #dir (cat @app-name "_mcc.h")) (optional "force"))
  2815.        (P_DelEmptyDir)
  2816.        (set #dir (pathonly #dir))
  2817.        (P_DelEmptyDir)
  2818.       )
  2819.     )
  2820.     (if #old_c_example
  2821.       (
  2822.        (set #dir (tackon #dest-dir "Developer/C/Examples"))
  2823.        (delete (tackon #dir (cat @app-name "-Demo.c")) (optional "force"))
  2824.        (P_DelEmptyDir)
  2825.       )
  2826.     )
  2827.     (set #dir (tackon #dest-dir "Developer/C"))
  2828.     (P_DelEmptyDir)
  2829.        )
  2830.      )
  2831.      (complete 43)
  2832.  
  2833.      ; C++
  2834. ;     (if (OR #all (IN #uninstall_proglang 1))
  2835. ;     )
  2836.      (complete 50)
  2837.  
  2838.      ; Asm
  2839.      (if (OR #all (IN #uninstall_proglang 2))
  2840.        (
  2841.     (if #old_asm_i
  2842.       (
  2843.        (set #dir (tackon #dest-dir "Developer/Assembler/Include/MUI"))
  2844.        (delete (tackon #dir (cat @app-name "_mcc.i")) (optional "force"))
  2845.        (P_DelEmptyDir)
  2846.        (set #dir (pathonly #dir))
  2847.        (P_DelEmptyDir)
  2848.       )
  2849.     )
  2850.     (if #old_asm_example
  2851.       (
  2852.        (set #dir (tackon #dest-dir "Developer/Assembler/Examples"))
  2853.        (delete (tackon #dir (cat @app-name "-Demo.s")) (optional "force"))
  2854.        (P_DelEmptyDir)
  2855.       )
  2856.     )
  2857.     (set #dir (tackon #dest-dir "Developer/Assembler"))
  2858.     (P_DelEmptyDir)
  2859.        )
  2860.      )
  2861.      (complete 57)
  2862.  
  2863.      ; Amiga-E
  2864.      (if (OR #all (IN #uninstall_proglang 3))
  2865.        (
  2866.     (if #old_e_e
  2867.       (
  2868.        (set #dir (tackon #dest-dir "Developer/Amiga-E/Modules/MUI"))
  2869.        (delete (tackon #dir (cat @app-name "_mcc.e")) (optional "force"))
  2870.        (P_DelEmptyDir)
  2871.        (set #dir (pathonly #dir))
  2872.        (P_DelEmptyDir)
  2873.       )
  2874.     )
  2875.     (if #old_e_example
  2876.       (
  2877.        (set #dir (tackon #dest-dir "Developer/Amiga-E/Examples"))
  2878.        (delete (tackon #dir (cat @app-name "-Demo.e")) (optional "force"))
  2879.        (P_DelEmptyDir)
  2880.       )
  2881.     )
  2882.     (set #dir (tackon #dest-dir "Developer/Amiga-E"))
  2883.     (P_DelEmptyDir)
  2884.        )
  2885.      )
  2886.      (complete 64)
  2887.  
  2888.      ; Modula-II
  2889.      (if (OR #all (IN #uninstall_proglang 4))
  2890.        (
  2891.     (set #dir (tackon #dest-dir "Developer/Modula/txt"))
  2892.     (if #old_modula_def
  2893.       (delete (tackon #dir (cat "MCC" @app-name ".def")) (optional "force"))
  2894.     )
  2895.     (if #old_modula_mod
  2896.       (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
  2897.     )
  2898.     (if (OR #old_modula_def #old_modula_mod)
  2899.       (
  2900.        (P_DelEmptyDir)
  2901.       )
  2902.     )
  2903.     (if #old_modula_demo
  2904.       (
  2905.        (set #dir (tackon #dest-dir "Developer/Modula/Demo"))
  2906.        (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
  2907.        (P_DelEmptyDir)
  2908.       )
  2909.     )
  2910.     (set #dir (tackon #dest-dir "Developer/Modula"))
  2911.     (P_DelEmptyDir)
  2912.        )
  2913.      )
  2914.      (complete 71)
  2915.  
  2916.      ; Oberon
  2917.      (if (OR #all (IN #uninstall_proglang 5))
  2918.        (
  2919.     (if #old_oberon_mod
  2920.       (
  2921.        (set #dir (tackon #dest-dir "Developer/Oberon/txt"))
  2922.        (delete (tackon #dir (cat "MCC" @app-name ".mod")) (optional "force"))
  2923.        (P_DelEmptyDir)
  2924.       )
  2925.     )
  2926.     (if #old_oberon_example
  2927.       (
  2928.        (set #dir (tackon #dest-dir "Developer/Oberon/Examples"))
  2929.        (delete (tackon #dir (cat @app-name "Demo.mod")) (optional "force"))
  2930.        (P_DelEmptyDir)
  2931.       )
  2932.     )
  2933.     (set #dir (tackon #dest-dir "Developer/Oberon"))
  2934.     (P_DelEmptyDir)
  2935.        )
  2936.      )
  2937.      (complete 79)
  2938.  
  2939.      ; Autodocs
  2940.      (if (AND #old_autodoc (OR #all (NOT (BITXOR #uninstall_proglang #old_proglang))))
  2941.        (
  2942.     (set #dir (tackon #dest-dir "Developer/Autodocs"))
  2943.     (delete (tackon #dir (cat "MCC_" @app-name ".doc")) (optional "force"))
  2944.     (P_DelEmptyDir)
  2945.        )
  2946.      )
  2947.  
  2948.      (set #dir (tackon #dest-dir "Developer"))
  2949.      (P_DelEmptyDir)
  2950.     )
  2951.   )
  2952.   (complete 86)
  2953.  
  2954.   (if (AND #old_source (OR #all (IN #parts 5)))
  2955.     (
  2956.      (set #dir (tackon (tackon #dest-dir "Developer/Source") (cat "MCC_" @app-name)))
  2957.      (P_DelDirRecursive)
  2958.      (set #dir (pathonly #dir))
  2959.      (P_DelEmptyDir)
  2960.     )
  2961.   )
  2962.   (complete 93)
  2963.  
  2964.   (P_CustomUninstall)
  2965.   (complete 100)
  2966.  )
  2967.  
  2968. ; -----------------------------------------------------------------------------
  2969.  
  2970.  ; Check MUI
  2971.  (P_GetMUIVersion)
  2972.  (if (= #mui_ver 0)
  2973.    (abort #abort_nomui)
  2974.  )
  2975.  (set #ver2 #min_mui_version)
  2976.  (set #rev2 0)
  2977.  (P_CompareVersions)
  2978.  (if (= #result -1)
  2979.    (
  2980.     (set #ver #min_mui_version)
  2981.     (set #rev #min_mui_revision)
  2982.     (P_GetMUIVersionStr)
  2983.     (abort (#abort_oldmui #str #mui_str))
  2984.    )
  2985.  )
  2986.  
  2987.  ; Check if there is an already installed version?
  2988.  (if (= (fileonly (pathonly @icon)) "Install")
  2989.    (set #src-dir "/")
  2990.    (set #src-dir "")
  2991.  )
  2992.  (set #dest-dir @default-dest)
  2993.  (set #dir #dest-dir)
  2994.  (P_CheckExists)
  2995.  (P_CustomExists)
  2996.  (set #old_mcc #chk_mcc)
  2997.  (set #old_mcp #chk_mcp)
  2998.  (set #old_demo #chk_demo)
  2999.  (set #old_catalogs #chk_catalogs)
  3000.  (set #old_mcc_catalogs #chk_mcc_catalogs)
  3001.  (set #old_mcp_catalogs #chk_mcp_catalogs)
  3002.  (set #old_docs #chk_docs)
  3003.  (set #old_asciidocs #chk_asciidocs)
  3004.  (set #old_agdocs #chk_agdocs)
  3005.  (set #old_proglang #chk_proglang)
  3006.  (set #old_progdirs #chk_progdirs)
  3007.  (set #old_autodoc #chk_autodoc)
  3008.  (set #old_c_h #chk_c_h)
  3009.  (set #old_c_example #chk_c_example)
  3010.  (set #old_asm_i #chk_asm_i)
  3011.  (set #old_asm_example #chk_asm_example)
  3012.  (set #old_e_e #chk_e_e)
  3013.  (set #old_e_example #chk_e_example)
  3014.  (set #old_modula_def #chk_modula_def)
  3015.  (set #old_modula_mod #chk_modula_mod)
  3016.  (set #old_modula_demo #chk_modula_demo)
  3017.  (set #old_oberon_mod #chk_oberon_mod)
  3018.  (set #old_oberon_example #chk_oberon_example)
  3019.  (set #old_source #chk_source)
  3020.  (set #old_existsmask #chk_existsmask)
  3021.  
  3022.  (set #dir #src-dir)
  3023.  (P_CheckExists)
  3024.  
  3025.  ; Check old version
  3026.  (set #file (tackon (tackon #dest-dir "libs/mui") (cat @app-name ".mcc")))
  3027.  (P_GetVersion)
  3028.  (set #ver2 #ver)
  3029.  (set #rev2 #rev)
  3030.  
  3031.  ; Check archiv
  3032.  (set #file (tackon (tackon #src-dir "libs/mui") (cat @app-name ".mcc")))
  3033.  (P_GetVersion)
  3034.  
  3035.  (P_CompareVersions)
  3036.  (if (= #result -1)
  3037.    (abort (#abort_oldversion #ver2 #rev2 #ver #rev))
  3038.    (if (= #result 0)
  3039.      (if (= #ver 0)
  3040.        (set #update 0)
  3041.        (set #update 1)
  3042.      )
  3043.      (set #update 0)
  3044.    )
  3045.  )
  3046.  
  3047. ; Install over old/Update existing
  3048.  (select (if (OR #old_mcc #old_autodoc)
  3049.        (askchoice (prompt #prompt_install_uninstall)
  3050.               (help #help_askchoice @askchoice-help)
  3051.               (default 0)
  3052.               (choices
  3053.             (cat #prop
  3054.                  (if (= #update 0)
  3055.                    (
  3056.                 #choice_install
  3057.                    )
  3058.                    (
  3059.                 #choice_update
  3060.                    )
  3061.                  )
  3062.             )
  3063.             #choice_uninstall
  3064.               )
  3065.        )
  3066.        (
  3067.         (message #prompt_info)
  3068.         0
  3069.        )
  3070.      )
  3071.    ( ; Install
  3072.     (welcome #welcome_install)
  3073.     (P_Install)
  3074.    )
  3075.    ( ; Uninstall
  3076.     (welcome #welcome_uninstall)
  3077.     (P_Uninstall)
  3078.     (exit #exit_uninstall_finished (quiet))
  3079.    )
  3080.  )
  3081.